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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IPM COFP 1976 
000018 768+B59 FOU 27 11 1 * 000018 885 ATOH EQU 27 ASCIT TO HEX SVC (STRING 
00001C 769+B60 EQOU 28 12 8 * 00001C 886 HTOA EOU 28 HFX TO ASCII SVC (STRING 
00001D 770+B61 EQU 29 13 4 * 00001D 887 ETOA EQU 29 FRBCDIC TO ASCII SVC (STPING 
O0001E 771+B62 EOU 30 14 S * OOO01E 888 ATOE EQU 30 ASCII TO EPCDIC SVC (STRING 
OO001F 772+BE3 EQU 31 15 1 * 00001F 889 READI EQU 31 PEAD DATA SETS FOP MDI/UTIL 
OO001E 773+CH EOU 30 14 2 CHARACTER SUPPLIED 000020 890 WRITI EQU 32 WPITE DATA SETS FOR UTIL 
O0001F 7704CMP EOU 34 15 1 COMPARE OPERATION SOMME ELE eS See SS SSS SSL SLES SSS SS SSL SS LSS SS SSCS LSC CCOCC CSS CLEC CO SCSe. COS SS SS 2 2 2S 
002BD2 0000 776+O0PTN3 DC X'0000' PPOGRAM OPTION CONTROL WORD 3 893 * * 
717+* 894 * EQUATFS USED BY TU'tS AS CONSTANTS * 
778+* O MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS cs B99 % x 
779+* 1 #‘ERPOR INTERRUPT ER 9 CS AVAILABLE CSA B96 RO OR i rai IO a tok dk kkk ick doko dak lok dik kk kkk fake kkk ak ok oie ck 
780+* 2 EXPECTED INTERRUPT XT 10 CS STATUS INTERRUPT ERR CE OOO0O04E 897 PLUS EQU Ci? PLUS CHAR 
781+* 3 jQINTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBON 000060 898 MINUS EQU  C'-* MINUS CHAR 
- 7B2+* 000000 900 ZERO EOQU 0 
783+* & EXPECTED ERR/ATTENT XE 12 TEST UNIT RESULTS VOID NG 000001 901 ONE EQU 1 
784+* 5 HAED ERROR FOUND HE 13. OTO CC ERROR TOCC 000002 902 TWO EQU 2 
785+* 6 WRONG INTR LEVEL SLE 14 NO INTERRUPT NOTN 000003 903 THREE EQU 3 
786+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR InNcc 000004 904 FOUR EQU 4 
T87+* BIT HEX 000005 905 FIVE EQU 5 
000020 7884mM1 EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000005 906 SIX EQU 6 
000021 789+ER EOU 33 1 M1 ERROR RECEIVED ON INTERRUPT 000007 907 SEVEN EQU 7 
000022 7904XI EQU 34 2 2 EXPECTED INTERPUPT CONTPOL RIT 000008 908 EIGHT EQU B 
000023 791+IN EQU 35 3 1 INTEPRUPT PECEIVED CONTROL BIT 000009 909 NTNE EQU 9 
000024 T924XE EQU 36 4 8 EXPECTED ERROR RESPONSE OOOOOA 910 TEN EQU 10 
000025 793+H EQOU 37 5 4 HARD ERFOF, 8 RETRIES 000008 911 ELEVN EQU 11 11 
000026 JOUFSLE EQU 38 6 2 INTERRUPT ON WRONG LEVEL ERPOP 00000C 912 TWELV EQU 12 12 
000027 7T9O54NI EQU 39 7 1 NO INTERRUPT EXPECTED 00000D 913 THRIN EQU 13 13 
000028 7964CS EQU 40 8 8 CYCLE STATUS IN PROGRESS O0OO00F 914 FIVIN EQU 15 15 
000029 7974CSA EOU 41 9 4 CYCLE STEAL AVAILABLE 000010 915 SIXTN EQU 16 16 
OOO002A 7984C EOU 42 10 2 CYCLE STEAL STATUS INEPRRUPT FRROP 000020 916 THRY2 EOU 32 32 
0000 2B 799+ISBON EQU 43 11 1 ISB BITS ON (1-7) 000040 917 STIXT4 EQU 64 64 
90002C 800+4+N EQU 4y 12 8 TEST UNIT RESULTS NO GOOD 000030 918 ONE28 EQU 128 128 
00002D 8014+#IOCC EOU 45 13 4 OTO CC EPROR 000100 919 TWO56 EQU 226 256 
O0002E 802+#NOIN EOD 46 14 2 NO INTERRUPT 000400 920 ONEK EOU 1024 1024 
00002F 803+INCC EQU 47 15 1 INTERRUPT CC ERROR 000800 921 TWOK EQU 2048 2048 
B8044* 000C00 922 THREK EQU 3072 3072 
805+* COMMON BUFFER FOR PRINTING DATA 001000 923 FOUPK EQU 4096 4096 
806+* FFFFFF 925 m1 EOU -1 -1 
OO2BD4 0000 8084+S$TUID DC A (*-* TEST UNIT IDENTIFICATION FFFFFE 926 M2 EQU = = 2 
002BD6 0000 809+$I0OIN DC A (*-* T/O AND INTR CONDITION CODES FFFF FD 927 43 EOQU =3 =3 
0O02BD8 0000 810+$ISB DC A (*-* R INTR STATUS BYTE & DEV ADRS FFFFFC 928 M4 EQU = -4 
OO2BDA 0000 8114+LSTIO DC A (*-* ADRS OF LAST I/O + W BYTES 930 eo eS eS Ss SSS SS SES SL SS SSS LSS SSL SSL SSS SSLS SS SSS SL SSP + SPS t+ ePSee ee e+e LS Se 2 te s:3 
OO2BDC 0000 812+DEV1 DC A (*-* DEVICE DEPENDENT DATA 931 * * 
OO2BDE 0000 8134+DEV2 DC Ah i*-* * 932 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
OO2BEO 0000 4Y1U4DEV3 DC A tk * * 933 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHFS. * 
OO2BE2 0000 R1IS+DEVE DC A (*-* *« 934 * * 
QO2BDC 816+SCTID EQU DEV1 READ ID RUFFER FOR IBIS & TERN 935 eR OR IIIB CR IE IK IR I IO OR i ak 
OO2BE4 817+DCBUF EOU * DCB BUFFER FOP LAST DCR USED 000000 936 BSO EQU 0 
OO2BE4 0000 818+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD 000001 937 BS1 EQU 1 
OO02BE6 0000 819+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000002 938 BS2 EQU 2 
OO2BE8 0000 8204+DCB3 DC A (*¥-* LAST DCB TABLE, DEV DEP WORD 000003 939 BS3 EQU 3 
OO2BEA 9000 821+DCB4 DC A (*—* LAST DCB TABLE, DEV DEP WORD 000004 240 BS4Y EQU) 4 
Q02BEC 0000 822+DCB5 DC h (¥*-* LAST DCB TABLE, DEV DEP WORD 000005 941 BSS EQU 5 
OO2BEE 0000 823+DCB6 DC A (*¥-* LAST DCB TABLE, CHAIN ADRS 000006 942 BS6 EQU 6 
0O02BFO 0000 824+DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 000007 943 BST EQU 7 
002BF2 0000 825+DCB8 DC A (*-* LAST DCP TABLE, BUFFER ADDRESS 000008 944 BS8 EQU- 8 
826+* 000009 945 BS9 EOU 9 
OO2BF4 827+CSBUF EQU * CYCLE STEAL DATA BUFFER OOOO0A 946 BS10 EQU 10 
OO2BF4 0000 8284CSTL1 DC A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS 00000B 947 BS11 EQU 11 
OO2BF6 0000 8294CSTL2 DC A (*—-* CYCLE STEAL WD 2, DEVICE DEPEND 00000C 948 BS12 EQU 12 
O0O2BF8 0000 8304+CSTL3 DC A (*¥-* CYCLE STEAL WD 3, DEVICE DEPEND 00000D 949 BS13 EOU 13 
OO2BFA 0000 8314+CSTL4Y DC A (*-* CYCLE STEAL WD 4, DEVICE DEPEND OO0000E 950 BS14 FOU 14 
OO2BFC 0000 8324+CSTL5 DC A (*-* CYCLE STEAL WD 5, DEVICE DEPEND OO000F 951 BS15 EQOU 15 
OO2BFE 0000 8334+CSTL6 DC A (*-* CYCLE STEAL WD 6, DEVICE DEPEND 953 COPY 17870 01DECT74 
002C00 0000 S344CSTL7 DC A (*-* CYCLE STEAL WD 7, DEVICE DEPEND 954 T7870 TULT SERPS 
002c02 0000 8354CSTL8 DC A *x— & CYCLE STEAL WD 8, DEVICE DEPEND Bee teen oe eee ere eg nee ray nen oO eg rage get et re oe 
836+* 956+* 
002cO4 0000 837+$SUBN DC og bees LAST SUBROUTINE ADDRESS USED 9574+* TEST UNIT 
002C06 00000000 838+$DATA DC 2A (*-* OPTIONAL DATA 958+* 
OO2COA 0021 8394+SINTL DC X*0021° INTERRUPT LEVEL REQUESTED 959+* FILE STATUS TEST 6/13/77 
002cOcC 0000 B84U04+TUPTN DC B (te) TEST UNIT RETURN ADRS TO MDI 960+* 
OO02COE OOB2 Q@414+$DVID DC X'OOR2* DEVICE ID 961+* PURPOSE 
002C10 19D0 842+SVCAL DC A (DEVADD) ADRS OF DEVICE ADDRESS 962+* 
002c12 0000 gaat DC A (*-*) IBIS CYLINDER ADDRESS ae FUNCTION: INITIAL RESET OF SEEK OPERATIONS. 
+ © - 
8454+ THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 965+* * PROGPAM INITIALIZES ATTACHMENT. 
BU6+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULIS AREA ARE 966+* . CHECK STATUS OF LINES IN ATTACHMENT AND 4962 RELATED TO SEEKS 
847+* STILL VALTD BUT A DIFFERENT TEST IS TO BE PERFORMED. 967+* 
84 8+* 968+* CALLING SEQUENCE 
002C14 4020 2BD4 3c02 8494+T3C02 MVWI X'3C02',$TUID SET UP TEST UNIT ID 969+* 
002C1A 5700 850+ BXS R7 RETURN TO MDI SUPVR 970+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
852 COPY OM Qu 9714+* : TURESOL BIT 0------------ PLO OUT OF SYNC CHECK 
B53 KKKKKKKKKKKEKKKKK PEELE E TEETER EER EEELS EERE ES EES CEASE ARSE SEE ESET EE O972+* = TURESOL BIT 1------------ DATA UNSAFE 
854 * * 973+4+* 7 TURESUL BIT 2------------ INTERRUPT 
B32 : EQUATED NAMES FOR SUPPORTED SVC!S : re : TURESUL BIT 3------------ FILE NOT READY 
2+ e 
857 RR RR RR III OK IO OK oO II FO tok OK kk 976+* é TURESUL BIT 4------------ RECAL 
0090000 6858 OUT EOU 0 ougT svc O77+* ‘ TURESOL BIT 5----------- NOT USED 
000001 859 OUTIN EOU 1 OUTIN SVC 978+* : TURESUL BIT 6§------------ NOT USED 
000002 860 IDLE EOU 2 IDLE svc 979+* : TURFSUL BIT 7----------- NOT USED 
000003 861 ASCII EQU 3 HEX TO ASCIT SVC 980+* : 
000004 862 CHNGE EQOU 4 CHANGE LEVEL 981+* . TURESUL BIT (8=><===—=s==— BEHIND HOME 
000005 863 PGMCK EOU 5 ALLOW PETOURN ON PROGRAM CHECK SVC 982+* é TURESUL BIT 9----------- ACCESS HEAD NOT HOME 
000006 864 EXIT EOU 6 EXIT SVC 983+ : TORESUL BIT 10---------- (x07). EVEN TRACK INDICATED 
000007 865 TERM EQU 7 TERMINATE SVC OBU4* : TURESUL BIT 11---~------- OT USED 
000008 866 RESET EQU 8 RESET DEVICE SVC 985+* ‘ 
000009 867 RID EOU 9 READ ID SVC 986+* - TURESUL BIT 12----------- RFCALIBRATE NOT RESET 
OOOOOA 868 START EQU 10 START CYCLE STEAL SVC 987+* < TURESUL BIT 13---------- NOT USED 
00000B 869 STCSS EQU 11 START CYCLE STEAL STATUS SVC 988+* ° TURESUL BIT: V+<--==--+=— SEEK 1 & 2 NOT RESET 
0N000C 870 PREP EOU 12 PREPARE DEVICE SVC 989+ < TURESUL BIT 15----------- (NOT) ON TRACK 
00000D 871 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 990+* ‘ 
0Q000E _ 872 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 991+* : TURESUL BITS 16-31 CS STATS FOR FAILING OP 
OO000F 873 RSTAT EQU 15 READ STATUS SVC 9924 ‘ 
000010 874 WRITO EQOU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 993+* EXITS NORMAL 
000011 875 WRIT1 EOU 17 WRITE WITH FUNCTION BIT 3 ON SVC JO4+* ° RETURNS TO MDI SUPERVISOR WHEN DONE. 
000012 876 CTPL EOU 18 CONTROL SVC 995+* : 
000013 877 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 996+* FXITS ERROR 
000014 878 CICB EOU 20 CONNFCT INTERUPT CONTROL BLOCK SVC 997+* ‘ RETURNS TO MDI SUPERVISOR. 
000015 879 HIO  EOU 21 HALT ALL I/0 3I8+* 
000016 280 RECSD EOU 22 REGUEST USE OF DCP DISK SVC 999+* RETURN CONTROL 
000017 881 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 1000+ 
090018 882 HALT EQU 24 HALT SVC 1001+* B TURTN* RETURN TO MDI SUPERVISOR 
000019 283 ETOH EQOU 25 EBCDIC TO HEX SVC (STRING 1002+* 
OOOOTA B84 HTOE EQU 26 HEX TO EBCDIC SVC STRING) 1003 + EERE KEK REE KKK KEK KEKE KKK EK EK KEK KKK KKK KEK KE KKK EEK EK KKK KKK EEK EK EEK KK KK KK 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYPIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOUPCE STATEMENT COPYRIGHT TBM TORP 1976 
002C1C 6FOD 2C0C 10044+T7870 MVW P7,TURTN SAVE PETURN ADDPESS 1119+%* % 
002C20 4Q20 2BD4 7870 1005+ MVWI X'78708 S$TUID SAVE TU ID FOR DISPLAY 1120+% z TURFSUL BITS 16-31----- CYCLE STEAL STATUS FOR FAILING OP 
002C26 HU24U 2BCE 1006+ MVA OFTN1,R4 SET UP POINTER ADRS IN R4& 41121+* < 
QOO02C2A 6E03 3DCA 1007+ BAL SCONC,R6 CLEAR DEV DEP STG AND CONNECT TI/0 BL 1122+* EXTTS NORMAL 
OO02C2E 3DFE ono s DC A (SERRS) ERROR ADPS FOR INVALID PREP ree . RETURNS TO MDI SUPFRVISOR WHEN DONE. 
+ + as 
002C30 8028 19D0 3B63 1010 MVB DEVADD,IDCBit1 LOAD DEVICE ADDRESS IN IDCB 1125+* EXITS ERROR 
002C35 8028 19D0 3B5F 1011 MVB DEVADD, I DCBOt1 LOAD DEVICE ADDRESS IN IDCB 1126+* = RETURNS TO MDI SUPERVISOR. 
002C3C C020 0232 1012 MVB CPUID, 0 DETERMINE CPU TYPE 112 7+4+* 
002C40 F025 1013 CBI 37,80 * 1128+* PRFTURN CONTEOL 
002C42 1804 1014 JNE T240 JUMP IF NOT 4955 1129+* 
vere a 2C5A 254C wae MVWI aon fe LOAD TIME CONSTANT FOR 2 SEC oss B TURTN* RETURN TO MDI SUPERVISIR 
T + 
002C4C 4020 2C5A OCOE 1017 TT70 MVWI X'OCOE! ,TT7OA+t+2 LOAD TIME CONSTANT FOR 2 SEC 1132428 RC RI i i oo a daliok daiok dak ick gi ak dick tok goa ai ak ke akc ake ac ak 
002C52 4724 3DB 1018 TT7OB MVA TOBLK, R47 SETUP IOBLK OO2CEA 6FOD 2C0C 1133+7T7823 MVW F7,TURIN SAVE RETURN ADDRESS 
002C56 6008 1019 SVC RESET ISSUE IO RESET OO02CEE 4020 2BD4 7823 1134+ MVWI X'48231 $TUID SAVE TU ID FOR DISPLAY 
002c58 4024 0000 1020 TTV7OA MVWI x'0O000!,F0 TIME OUT 2 SEC OO2CF4 Y“4Y?U 2BCE 1135+ AVA OPTN1,R4 SET UP POINTER ADRS IN RY 
002C5C 6002 1021 TT7OC SVC IDLE * 002CF8 6E03 3DCA 1136+ BAL SCONC,R6 CLEAR DEV DEP STG AND CONNECT I/O RL 
OO2CSE B8FE 1022 JCT TT7OC * OO2CFC 3DFE 1137+ DC A (SERPS) ERROR ADPS FOR INVALID PREP 
002C60 CA25 18C8 1023 MVWZ TUPESUL,F2 CLEAR RESULTS WORD 113 8+* 
002C64 CA25 18CA 1024 MVHWZ TURESUL+2,R2 CLEAR RESULTS WORD 2 OO2CFE C020 0232 4139 MVB CPUID,F0O DETERMINE TYPE OF PROCESSOR 
002C68 4224 18C8 1025 MVA TURESUL R? ADDRESS OF RESULTS 002D02 F025 1140 CBI 37,R0 * 
002C6C 6£E03 3CC2 1026 T1702 BAL XIocS R6 START CYCLE STEAL STATUS 002D04 1804 1141 JNE T23T JUMP ITF NOT 4955 
002Cc70 3DFE 1027 DC A (SERFS) ERROR 002D06 4020 ?D22 254C 1142 MVWI X*254C"t,T23T1+2 LOAD TIME CONSTANT FOR 2 SEC 
Q002Cc72 4CA1 1028 TBTFP ete ER) TNTERRUPT EFROR 002D0C 5003 1143 J T23T2 
002C74 6A00 3DFE 1029 BON ERPS YES OO2D0E 4020 2D22 OCOE 1144 T23T MVWI X'OCOE! ,T23T1+2 eres LOAD TIME CONS FOP 2 SFC 
002C78 8828 2BF6 3AEA 1030 MVW CSBUF4+2,STATS ADDRESS OF CYCLE STEAL STATUS 002D14 8028 19D0 3B63 1145 T23T2 MVB DEVADD fDCB1+1 LOAD DEVICE ADDRESS IN IDCB 
0O2C7E 4524 3AEA 1031 MVA STATS ,R5 * 002D1A 4724 3DB6 1146 VA TOBLK, R7 SETUE IOBLK 
002C82 4D87 1032 TBTP (5? 7) TEST FOR UNSBFE OO2D1E 6008 1147 SVC RESET ISSUE IO RESET 
002c84 1001 1033 JOFF 704 002D20 4024 0000 1148 T23T1 MVWI xX!'0000'!,R0O TIMEOUT APPROX 2 SEC 
002C86 GAY 1034 TBTS Se TURN ON DATA UNSAFE OO02D24 6002 1149 T7723 SVC IDLE x 
002C88 UDS8F 10325 1701 TBTR R5,15) TFST NOT READY 002D26 B8SFE 1150 JCT T7230 * 
002C8A 1001 1036 JOFF 1702 002D28 CA25 18C8 1151 MVWZ TURESUL,R2 CLEAR RESULTS WORD 
002C8C 4A43 1037 TBTS R23) TURN ON NOT READY 002D2C CA25 18CA 1152 MVWZ TURESUL+2,R2 CLEAR RESULTS WORD2 
OO02C8E 4D8B 1038 T702 TBRTR F554) PESET UNSAFF BITS 002D30 4224 18C8 1153 MVA TURESUL RS ADDRESS OF PESULTS 
002C90 4D8C 1039 TBTR Ro, 12 * : 002D34 6E03 3BFO 1154 BAL fFRECL ré RECALI BRATE 
002C92 4D8D 1040 TBTE R5,13 * 002D38 2D82 1155 DC A (T23 {Y) ERROR 
002Cc94 4“O2F 3AEA 0000 1041 CWI STAT ANY OTHER EPFOPR BITS ON? O002D3A YCA1 1156 TBTR 4,=EP) INTEFPFUPT ERFOP? 
002C9A 1006 1042 JE TIOR NO 002D3C 1032 1157 JOFF 716 NO 
002C9C HAGY 1043 TBIS R2,4 RECAL EFROR O002D3=4 YCAY 1158 TBTR Ge CSA) TST FOR CYCLE STFAL STATS 
QO2CIE WAY? 1044 TBIS E22 INTERRUPT EPROR 002D40 6800 3DFE 1159 BOFF ERPS ERROR 
002CA0 8828 2BF6 18CA 1045 MVW CSBOF4+2 ,TURESUL+2 CS STATS OO2D44 8828 2BFE6 3AFA 1160 MVW CSBUFt+2,STATS ADDRESS OF CYCLE STEAL STATS 
002CA6 501F 1046 J T7OA EXIT OO2D4A 4524 3AEA 1161 MVA STATS ,R5 cd 
002CA8 6E03 3B28 1047 T7OR BAL SENS1,R6 GET SENSE WORD ONE OO2D4E 4D87 1162 TBTR (2557) UNSAFE? 
OO2CAC 3DFE 1048 DC A (SERSS) FRROR 002D50 1001 1163 JOFF 1T23SS NO 
OO2CAE 4124 3B64 1049 MVA RDATA,F1 ADDRESS OF SENSE DATA 002N52 YAYC 1164 TRIS R212 SET- UNSAFE 
002CB2 4901 1050 TBT cH 14 TEST PLO OUT OF SYNC 002D54 UDBA 1165 T23SS TBTP F5,10 BRAKE FAILURE? 
002CB4 1001 1051 JOFF 103 002D56 1001 1166 JOFF 23TT NO 
002CB6 GAO 1052 TBIS R2,0 SET 'PLO OUT OF SYNC! 002D58 GAUB 1167 TBTS (Pee ey) SET- BRAKE FAILURE 
002CB8 4909 1053 T703 TBT P19 TEST NOT BEHIND HOME QNO2D538 4D 86 1168 T23TT TETR R5,6) PLO OUT OF SYNC CHECK? 
OO2CBA 1201 1054 JON 704 002D5C 1001 1169 JOFF T2300 NO 
OO2CBC HA48 1055 TETS B4arey SET BEHIND HOME OO2D5E GAYA 1170 TBTS R2,10) SET- PLO OUT OF SYNC 
OO2CBE 4905 1056 T704 TBI P1,5 TEST HOME POSITION 002D60 4uDd89 1171 T230U TETR R5,9) SEFK CHECK? 
002CCO 1201 1057 JON 705 O0O02DE2 1001 1172 JOFF 23h NO 
002CC2 WAYS 1058 TBTS Boeay SET ACCESS HEAD NOT HOME O0O2DAY HAU3 1173 TBTS R2,3) SET-~- SEEK CHECK 
002CcCY4y 490F 1059 1705 TBT P1« 15) TRST EVEN TRACK 002D66 4D8B 1174 T23A TBTP PS, 11 RESET UNSAFE BITS 
002CCE 1201 1060 JON 706 002D68 4D8C 5 lx ae i TBTP P5,12 * 
002CC8 HAGA 1061 TeETS R2,10 SET NOT EVEN TRACK INDICAL ED OO2D5A UD8D 1176 TBTK RS 13 * 
QO2CCA “OOD 1062 1706 TBT R1,13 TEST NOT SEFK 1 AND 2 002D6C 4O2F 3AEA 0000 1177 CWT STAT OTHER EPROR BITS ON? 
002CcCC 1201 1063 JON 708 002D72 6800 2DB2 1178 BE T53U NO-EXIT 
OO2CCE GAGE 1064 TBTS R2,14 SET SEEK 1 AND 2 NOT RESET OO2D74 4YA4D 1179 T23AA TBTS Crane SET RFCAL FAILURE 
002CDO0 4OOA 1065 T708 TET R1,10 TEST ON TRACK 002D78 YAUO 1180 TBTS R2,0) SET- INTERRUPT ERROR 
002CD2 1201 1066 JON 7104 OO2D7A 8828 2BF6 18CA 1181 MVW CSBUF+2 ,TURESUL+2 CS STATS 
OO2CD4 UAYUF 1067 TBTS (R2 hel SET NOT ON TRACK 002D80 5018 1182 J T230 EXIT 
002CD6 6E03 3B3C 1068 T7092 BAL SENSO 6 GET SENSE WORD ZERO 002D82 7B06 0003 1183 T23YY CWI X'0003!,kR3 CHECK FOR COMMAND REJECT 
OO2CDA 3DFE 1069 DC h (SEPPS) ERROR 002D86 6801 3DFE 1184 BNE FPEPRS ERRCR-TU NG 
O0O02CDC 4124 3B60 1070 MVA RDATAO,F1 ADDRESS OF SENSE DATA OO2D8A 6E03 3CC2 1185 BAL XTOCS,R6 START CYCLE STFAL STATS 
002CEO 4903 1071 TBT (R1,2) TEST RECALIRBPATE TPRIGGEP 002D3E 3DFE 1186 DC A (SERBS) ERKROR 
OO2CE2 1001 1072 JOFF T70&4 002D90 4cCA1 1187 TBTR ie FF) INTERRUPT ERROR? 
OO2CE4 GAYC 1073 TBTS (R2,12) SET 'RECALIBRATE NOT RESET! 002D92 6A00 3DFE 1188 BON ERPS YES 
1074 T7OR TXIT 002D94 4O2B 2BF6 0001 1189 TWI X¥'0001',CSBUF+t+2 NOT READY? 
002CE6 6802 3E4E 1075+T70OA B SCONX KETUPN TO MDI CONTROLLER 0O02D9C 10EC 1190 JOFF T23AA NO-EFROR 
1076 +232 20 III I I IO IO ORI IG III II I I RCI I I ae ak ak ak OO2D9E U4AUE 1191 TBTS (P2 14) SET NOT READY 
1077 * 002DA0 5SOEA 1192 J 234A EXIT 
1078 * O00 2DA2 6E03 3B28 1193 T710 BAL SENS1, R6 GET SENSE WORD GONE 
1080 COPY 17823 01DEC76 002DA5 3DFE 1194 DC A (SERBS) ERROR 
1081 T7823 TUIT SERRS OO2DA8 402R 3B64 0400 1195 TWI X'O4O0", RDATA TEST HOME POS 
10 82.423 2 IG GIG Ro oi dik ick kiotok jak gok got ioktetok 0 6 F EB 7 6 ** OO2DAE 1201 1196 JON T7230 HOME IS ON 
1083+* 002DBO 4A 1197 TBTS (R2,1) SET "HOME OFF? 
1084+4¢* TEST UNIT 1198 230 TXIT 
1085+* OO2DB2 6802 3EUE 119947230 B SCONX RETURN TO MDI CONTROLLER 
ae (TU23-TU71) RECALIBRATE TEST #1 12/01/75 12004 3 Ik RR OR RG ao oi io oR a ok ia loi i ok doi ick ok tai ga a kak kak aka ak 
1 +* 1201 * 
1088+* FPURPOSE 1203 COPY T7836 O1IDECT6 
1089+* 1204 17836 TUIT S13E 
Mates FUNCTION: TO DETERMINE THE OPERATIONAL STATUS OF RECAL FUNCTION. 1205+ KO dk ak i oko kk rok kai ok ilo doko tok tk 0 6 FEB] 6% 
1091+* a 1206+* 
1092+* 2 PROGRAM INITIALIZES ATTACHMENT. 1207+* TEST UNIT 
1093+* 3 RECALIBRATE 1208+ 
109 4+* a CHECK STATUS OF LINES IN ATTACHMENT AND 4962 FELATED TO THE 1209+* (09U13) SEEK SCOPE LOOP 12/01/76 
1095+* = RECALIBRATE OPERATION. 12104+* 
1096+* 1211+* PURPOSE 
1097+* CALLING SEQUENCE 1212+* 
1098+* 1213+* FUNCTION: LCOP ON SEEKS 
1099+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FOPMAT: 1214+* e 
1100+* rs TURESUL BIT O------W-----K- INTERRUPT ERROR 1215+* ws PROGRAM INITIALIZES ATTACHMENT. 
1101+* ie TOPRESUL Bit 1-<-2-3"Ss<<- HOME POSITION NOT ON 1216+* < RECALIBPRATE 
1102+ * is TURESUL. BIT 2===--+---+---- NOT USED 1217+* - SEEKS (FWD 1-TPACK TO ODD TRACK 
11034* 2 TURESUL BIT 3--7--rrcrrrOr SEEK CHECK (SEEK COMPLETE TIME OUT 1218+* . SEEKS FWD 1-TRACK TO EVEN TPACK 
1104+4+* , 1219+* - SEEKS {REV 1-TRACK TO ODD TRACK 
1105+* - TURESUL BIT 4------------ NOT USED 1220+* = SEFKS PEV I1-TRACK TO EVEN TFACK 
1106+* : TURESUL BIT 5S----------- NOT USED 1221+* * LOOP UNTIL CE INPUTS ANSWER TO MAP QUESTION. 
1107+* ‘ TURESUL BIT 6------------ NOT USED 1222+%* 
og. ‘< TURESUL BIT 7----------- NOT USED oan CALLING SEQUENCE 
+ 2 + 
1110+* e TURESUL. BEL 8-=-==--<=<-= RESERVED (ALWAYS ZEPO) 1225+* PROGPAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
1111+* P TURESUL BIt 93==-—==----+-= NOT USED 1226+* . NO STATUS PASSED BACK TO MDT 
1112+* = TURPESUL BIL 10=--S-==)= PLO OUT OF SYNC 1227+4+* 
1113+* : TURESUL BIT 11--------- BRAKE FAILURE 1228+* EXITS NORMAL 
11144+* « 1229+* 3 MDI TERMINATES LOOP. 
1115+* . TURESUL BIT 12--------- UNSAFE 1230+* < 
1116+* i TURESUL BIT 13--------- RECALIBRATE FAILUFE 1231+* EXITS ERROR 
1117+* ‘ TURESUL BIT 14--------—-+ NOT READY 1232+* 5 NONE 
1118+* . TUPESUL BIT 15--------- NOT USED 1233+%* 
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12344+* RETURN CONTROL 002E6C 4020 39EC 0005 1349 MV WI X°0005! »SKDCB SEEK 
1235+* 002E72 4020 39EE 0001 1350 MVWI 1,SKDCB42 FORWARD DIRECTION ONE TRACK 
1236+* B TURTN* RETURN TO MDI SUPERVISOR 002E78 6£E03 3BE8 1351 BAL $SEEK,R6 SEEK 
1237+* 00O2E7C 3DFE 1352 Dc A (SERPS) E 
Ssaukeycse “ue Ce eae eee re ore cere re ene ene OO2ZETE 6E03 2EFC 1353 BAL T300,F6 INTERRUPT ROUTINE 
002DB6 6FOD 2c0C 1239+T7836 MVW R7,TURTN SAVE RETURN ADDRESS 002E82 6£803 3B28 1354 BAL  SENS4,R6 PEAD SENSE WORD ONE 
OO2DBA 4020 2BD4 7836 1240+ MVWI x 4036" $TUID SAVE TU ID FOR DISPLAY 002E86 3DFE 1355 DC A (SEERS) ERROP 
002DCO 4424 2BCE 1241+ MVA  OPTN1,R4 SET UP POINTER ADRS IN R4 002E88 4124 3B64 1356 MVA  RDATA,P1 ADDPESS OF SENSE DATA 
002DC4 6803 3DCA 1242+ BAL  $CONC’R6 CLEAR DEV DEP STG AND CONNECT I/O BL OO2E8C 4905 1357 TBT (Ra 5{ HOME POSITION OFF? 
peepee -2eN6 ohare oe A (S13E) Pee rege ae Pee ee eartta Meare 1326 Tere 396, ree HEAD DIDN'T LEAVE HOME AFTER SEEK 
0O2DCA C020 0232 1245 MVB  CPUID,RO DETERMINE TYPE OF PPOCESSOR 002E92 402B 18C8 OOFF 1360 7306 TWIT SO6FE! TURESUL ANY ERROR BITS ON? 
OO2DCE F025 1246 CBI 37,R0 * 002E98 1001 1361 JOFF T30D NO 
002DD0 1804 1207 INE 1367 JUMP IF NOT 4955 OO2E9A 5016 1362 J T307 EPROR 
002DD2 4020 2DE8 254C 1248 MVWI X'254C',7T36T1+2 LOAD TIME CONSTANT FOR 2 SEC 002E9C 6£03 3BF0 1363 T30D BAL $RECL,R6 RECALIBRATE 
002DD8 5003 1249 J T36T2 OO2EA0 3DFE 1364 DC A (SERRS) ERROR 
OO2DDA 4020 2DE8 OCOE 1250 T36T MVWI X'OCOE',T36T142 (4953) 1 LOAD TIME CONS FOR 2 SEC 0O2EA2 6803 2EFC 1365 BAL 1T300,R6 INTER ROUTINE 
OO2DEO 4724 3DRB6 1251 T3672 MVA  TOBLK,R? ETUP OO2FA6 6803 3B28 1366 BAL SENS4,R6 READ SENSE WORD 1 
OO2DE4 6008 1252 SVC RESET ISSUE to" Ue set OO2EAA 3DFE 1367 pc A (SEPRS) ERROP 
002DE6 4024 0000 1253 T36T1 MVWI X*0000',RO TIME OUT 2 SEC OO2EAC 4124 3B64 1368 MVA RDATA,R ADDRESS OF PEAD DATA 
OO2DEA 6002 1254 7736 SVC IDLE * : 002EBO 490F 1369 TBT (Ra 15) EVEN TRACK? 
002DEC B8FE 1255 3JcT  1736,R0 * OO2EB2 1201 1370 JON 308 YES 
OO2DEE 6£03 3BFO 1256 BAL $RECL,R6 RECALIBRATE OO2ZEB4 4A49 1371 TBTS (R2 9) SET-EVEN TRACK NOT SET AFTER FECAL 
OO0O2DF2 2RI1E 1257 C A (S138) ERROR-EXIT 002EB6 402B 18C8 OOFF 1372 7308 TWI 'O6FF' ,TURESUL ANY ERROP BITS ON? 
0O0O2DF4 4020 39EC 0005 1258 MVWI X*0005',SKDCB SEEK OO2FBC 1001 1373 JOFF T30E NO 
OO2DFA 4020 39EE 0001 1259 1S13. MVWI 1,SKDCB+ FORWARD DIRECTION ONE TRACK OO2EBE 5007 1374 T309 ERROR 
002E00 6EF03 3BE8 1260 BAL $SEEK,R SEEK OO2ECO 4905 1375 T30E TBT (Ra 5) HOME POSITION ON 
OO2FO4 2E1E 1261 DC A (S138) EPRROR-EXIT 002FC2 1203 1376 JON 304 YES 
002E06 6E03 3BE8 1262 BAL SSEEK.R6 SEEK OO2ECK 4AG3 1377 TBTS (R2 3) SET- RECAL ERROK 
OO2ZEOA 2E1E 1263 DC A(S13£) ERROR-EXIT 002EC6 5005 1378 J 308 
OO2EOC 4020 39EF 0801 1264 MVWI X*0801',SKDCBt2 SET SFEK REVERSE ONE TRACK OO2EC8 4aA4O 1379 1307 TBTS (R2,0) TEST ABORTED BEFORE PECAL-SEEK EPROP 
OO sn te 5 £03 oes 1388 prt SSEEK ¢RO ERROR EXIT OO2ECA 6802 3E4E 1384 30K neo SCONX RETURN TO MDI CONTROLLER 
- + 
O0O02E18 6E03 3BE8 1267 BAL aaah b6 SEEK 13 BD HH RH KKH HK HK HK KK HH RH HK HK HK HK He He He He Ee He He He ee He EK He ee eK he hc i oe oe ok 
O0O2F1C 2E1F 1268 DC A(S13E) ERROR-FXIT 1383 * 
1269 S13E TXIT EXIT OO2ECE 4A41 1284 £309 TBTS (R2 1) TEST ABORTED AFTEP PECAL-SEEK EPROP 
OO2E1E 6802 3EUE 1270+S13E  B $CONX RETURN TO MDI CONTROLLER 0OO2EDO SOFC 1385 3 304A 
LOAM E ESE SS SSS SETS SESE SES SPP SS STS LE SL SS SST SSS SS SSS TSS ST SS EST SSS SSF StS SS SS SS SS OOZED2 4020 39EE 092F 1386 T30B MVWIL X¥'OQ9O2Ft SKDCBt+2 SET SEEK REV-303 TRACKS 
1272 * O0O2ED8 6E03 3BE8 1387 BAL S$SEEK,R6 SEEK 
1273 * OO2ZEDC 3DFE 1388 DC A (SEFRS) ERROR 
1275 COPY 17830 01DEC76 OO2EDE 6E03 2EFC 1389 BAL  1300,R6 CHECK STATS 
1276 17830 TUIT $SERRS OO2EE2 402B 18C8 OOFF 1390 TWI X'OOFF!',TURESUL ANY ERROR BIIS ON 
V2 TT AH RRR HA HHH HH KH KH HH HK IK I EK eo eK KK KK KKK KKO GP EBT G6 ** OO2ZEE8 10F0 1391 JOFF T30A NO-EXIT 
1278+* OO2FEA 6E03 3B28 1392 BAL SENS1,R6 READ SENSE DATA 
1279+* TEST UNIT OO2ERE 3DFE 1393 DC A (SERRS) ERROR 
1280+* OO2FFO 402B 3B64 0400 1394 TWI X"O4OO"',RDATA HOME POSITION ON? 
12814+% (TU30) SEEK TEST #2 12/01/76 OO2EF6 12E9 1395 JON T30A YES 
1282+* OO2EF8 4aga 1396 TBTS AB2 u) HOME NOT ON AFTER LONG SEEK 
128344 PURPOSE OO2EFA 50E7 1397 : J 304 
+ 
1285+* FUNCTION: TO DETERMINE THE OFFRATIONAL STATUS OF RECAL FUNCTION. 1399 * INTERRUPT ROUTINF-CHECK STATS 
1286+* 1400 * 
1287+* ~ PROGRAM INITIALIZES ATTACHMENT. OO2EFC 4cag 1401 T300 TBTR (Ra CSA) CS AVAILABLE? 
1288+* -  RECALIBRATE AND DO A ONE TRACK SFEK (FORWARD-OUT DIRECTION | OO2EFE 1019 1402 JOFF 730€ NO-RETURN 
12894+* . CHECK STATUS OF LINES IN ATTACHMENT AND 4962 RELATED TO TH 002F00 8828 2BF6 3AEA 1403 MVW  CSBUF+2,STATS CS ADDPESS 
1290+4+% . SEEK OPERATION. 002F06 4524 3ABA 1408 MVA  STATS,R5 * 
1291+* OO2FOAR 4D89 1405 TBTR (RS 95 SEEK CHECK? 
1292+* CALLING SEQUENCE O0O2FOC 1001 1406 JOFF 1304 NO 
1293+* OO2FOE GAYWF 1407 TBTIS ae SET- SEEK TIME OUT ERROR 
1294+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 002F10 4D8F 1408 1301 TBTR (R5/715 NOT READY? 
1295+* 2 TURESUL BIT 0----TEST ABORTED BEFORE RECAL DUE TO SFEK ERR 002F12 1001 1409 JOFF 7303 NO 
1296+* : TURFSUL BIT 1----TEST ABORTED AFTER PECAL DUE TO SEEK ERR OO2F14 UAUE 1410 TBTS (R2,14) SET- NOT READY 
12974+* : TURESUL BIT 2----INTEPRUPT EPPOR 002F16 4D87 1411 1302 TBTR (RS 7) UNSAFE? 
1298+% : TURESUL BIT 3----RECALBRATE ERROR 002F18 1001 1412 JOFF 1303 NO 
1299+* : OO2F1A 4auc 1413 TBTS (R2,12) SET- UNSAFE 
1300+% : TURESUL BIT 4----HOME NOT ON FOLLOWING LONG SEEK IN OP OO2F1C 4D86 1414 7303 TBTR (R5/6) PLO OUT OF SYNC CHECK? 
1301+* 3 TURESUL BIT 5------------ NOT USED OO2F1E 1001 1415 SOFF 7304 NO 
1302+* : TOUPESUI BIT §<-<--=-—-~=--- NOT USE 002F20 AGA 1416 TBTS (R2,10 SET- PLO OUT OF SYNC CHECK 
1303+* : TURESUL BIT 7----------- BRAKE FATLURE 002F22 4D8B 1417 7304 TBTR (R5/11 RESET UNSAFE BITS 
13044% i 002F24 4pDsc 1418 TBTR (5412 x 
1305+* c TURESUL BIT 8----HEAD DIDN'T LEAVE HOME FOLLOWING SEEK OUT 002F26 4D8D 1419 TBTP (R5,13 * 
1306+* : TURESUL BIT 9----EVEN TRACK NOT SET FOLLOWING RECAL 002F28 402F 3AEA 0000 1420 CHI O,S*®AT ANY OTHER CS RITS ON? 
1307+% 5 TURESUL BIT 10----PLO OUT OF SYNC CHECK OO2F2E 6801 2ECA 1421 BNE T30A YES — EXIT 
1308+4 : TURESUL BIT 11--------—- NOT USED 002F32 5600 1422 T30C BXS (R6) RETURN TO CALLER 
+ a 
isdaee TURESUL Bie |gcc------ ONOR USED 143@ 77831 Goes SEuoS eres 
+ oe “VAG OU Bobb VQrrnreer eer se" CS xe 
1312+* s TURESUL BIT 14----NOT READY VD Tt HH RH HH HH He eR RK ORK ta KK ok ok KK OG FER 7F *€* 
1313+* : TURESUL BIT 15----SEEK TIMEOUT ERROR 142 8+* 
1314+* 14294* TEST UNIT 
1315+% : TURESUL BIT 16-31-- CS STATUS FOR FAILING OP 1430+* 
1316+% : 1431+% (TU31) SEEK TEST#3 2/04/77 
1317+* EXITS NORMAL 14324% 
131g++ : RETURNS TO MDI SUPERVISOR WHEN DONE. 143344 PURPOSE 
+ * + 
1320+* EXITS ERROP 14354+* FUNCTION: SEEK TO CE TRACK AND BACK HOMF IN 1 STEP TNCREMEFNTS 
tao5ee : RE DUENS Pe) ee Sener eons Lee : PROGRAM INITIALIZES ATILACHMENT 
+ es ‘ ry Ne 
13234+* PETURN CONTROL 14384% .  RECALIBRATE AND SEEK OUT TO TRACK 302 IN 1 STEP INCRENFNTS 
13244% 14394# : SEEK BACK TO TRACK 0 IN 1 TRACK INCREMENTS 
132544 B TUR TN* RETURN TO MDI SUPERVISOR 1uho+s . FROM TRACK 0,DO A MINUS (REV) 1 TRACK SEEK FOR REHIND HOME CF 
+ + 
132 74 ROI III IORI IO IGG IOC AIO fk a ii ac take ake ok 14424+* CALLING SEQUENCE 
002E22 6F0D 2C0C 1328477830 MVW R7,TUPTN SAVE RETURN ADDRESS 144 3+% 
002E26 4020 2BD4 7830 1329+ MVWI X'7830', $TUID SAVE TU ID FOR DISPLAY 14444* PROGRAM PASSES STATUS OF ALL LINFS IN FOLLOWING FORMAT: 
OO2E2C 4424 2BCE 1330+ MVA  OPTN1, Ri SET UP POINTER ADRS IN RY 14454+* é TUPFSUL BIT O----ERROPS DETECTED ON FORWARD SFEK 
002E30 6E03 3DCA 1331+ BAL $CONC; CLEAR DEV DEP STG AND CONNECT I/0 RL UE +* : TURESUL BIT 1----ERRORS DETECTED ON BACKWAPD SEFK 
OO2E34 3DFE 1332+ DC RISERES) ERROR ADPS FOR INVALID PREP 144 7+* : TORESUL BIT 2--<------——- UNSAFE 
1333+%* 14484 : TUPESUL BIT 3----BFHIND HOME DETECTED TOO SOON 
002E36 C020 0232 1334 MVB  CPUID,RO DETERMINE TYPE OF PROCESSOR 1u494% : 
OO2E3A F025 1335 CBI 37,P0 * 1450 4% TURESUL BIT 4----REHIND HOME NOT DETECTED 
O0O2E3C 1804 1336 INE  7367%c JUMP IF NOT 4955 14514+* ; TUPESUL BIT 5----------- RPAKE FAILUPE 
OO2ZE3E 4020 2E5A 254C 1337 MVWI X'254C',T30T142 LOAD TIME CONSTANT FOR 2 SEC 1452+% : TURESUL BIT 6----NOT READY CHECK 
O0O2F44 5003 1338 T30T2 1453+* : TUEESUL BIT 7----INTERFUET ERROR 
OO2E46 4020 2E5A OCOE 1339 T30TC MVWI X'TOCOE' ,T30T1+2 (4953) LOAD TIME CONS FOR 2 SFC 14544* : 
OO2E4C 8028 19D0 3863 1340 T30T2 MVB  DEVADD,fDCB1+1 OAD DEVICE ADDRESS IN IDC8 14554+* : TURESUL BIT 8----HOME BIT NOT AS EXPECTED 
O02DES2 4724 3DB6 1341 MVA  TIOBLK,R&7 SETUP IOBLK 1856 4% : TURESUL BIT 9----ON/OFF/ON TPACK TIMF OUT ERROR 
OO2E56 6008 1342 SVC RESET ISSUE IO RESET T4574 « TURESUL BIT 10----PLO OUT OF SYNC CHECK 
002E58 4024 0000 1343 T30T1 MVWI X*'0000',RO TIME OUT 2 SEC 1458+* : TURESUL BIT 11----RECALIBRATE FAILURE 
Mette Bere 1345 aes ee 7730 PO x Taeoee : TUPESUL BIT 12 SEEK FAILUPE 
+ 3 ——=—= \ 
002E60 CA25 18C8 1346 MVWZ TURESUL,R2 CLEAR RESULTS WORD 146 14% : TURESUL BIT 13----FVEN TRACK NOT AS EXPECTED 
002E64 CA25 18CA 1347 MVWZ TURFSUL+2,R2 CLEAR RESULTS WORD 2 1462+* : TURESUL BIT 14---------- NOT USED 
002E68 4224 18C8 1348 MYA TURESUL,P2 ADDRESS OF PESULTS 14634+* : TORESUL RIT 15----SEEK CHECK 
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COPYRIGHT IBM CORP 1976 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT Sr a 
TBTR (R4,ER 
0031B0 4029 3AAA 0001 1692 7319 AWI  1,LCT INCREMENT LOOP CTR Noeoee Aaae 1300 PBT ABE ER) 
0031B6 402F 3AAA 012E 1693 CWI 362,ictT COUNT LESS THAN 302? OOaoEe: Ucie 1810 TBTR (RG,CSA) TST FOR CYCLE STEAL STATS 
S031c0 eB 02 ODE 1698 ae r310 +4 L6ap SEER ROUTINE 003260 6800 3DFE 1844 BOFF SERkS 2.STATS pierce oe Gere STEAL STATS 
0031C4 402B 39EE 0800 1696 T31I THI X10800" ,SKDCB+2 SEEK DIRECTION REVERSE? eae Rese eeee eee ae a STATS RS A 
OO031CA 1203 1697 JON 725) YES 00326E 4D87 1814 TBTR 7f UNSAFE? 
OO31CC 4AYD 1698 TBTS (82,0) SET ERRORS DECTED ON FORWARD SEEK BaaoTR. abe 1815 jore segs NOT eee 
003102 GAGT 1700 T31J TBTS 4B 2 1) SET ERRORS DETECTED ON REV SEEK nosaqk rae ee gases ee {25210} SCA RR er TL Gees 
0031D4 6802 30C0 1701 B 34k EXIT 003276 1001 1818 JOFF 7567 NO 
0031D8 6802 0000 1702 7310 B iiss RETURN TO CALLER 003278 4A4B 1819 TBTS (R2,11) SET- BRAKE FAILURE 
coon : 00327A 4D86 1820 T75TT TBIR (8576) PLO OUT OF SYNC CHECK? 
Aaa eoey 4787 01DECT6 D035 78 ARYA 1892 TBTS (R2,10) SET- PLO OUT OF SYNC 
1708 ek ORR IGIGIOIIGI IO III III oi oak Gioia ia ia ak tok a kG Ga ak ia ak ait eek aGaoee aD ee eee Pith TON 4859) eae PTR ce aap EXIT 
1709 *17872 : 003284 4D8B 1825 TBTR (R5,11 RESET UNSAFE BITS 
1710 * THIS TU INHIBITS INTEPRUPT 12/01/76* 003286 4D8C 1826 TBTR (R5,12 x 
1711 * CALLING ROUTINE LOOPS ON T72A * 003288 4D8D 1827 TBTR (R5.13 * 
TT 1D RMR HH HH He HK RK HK He ee 2 eK ee Ke 2 2K He fe he He ae he ae ae a he he 2 i ae af ae 2 ae eae a ke ae 2c ak ik 2c ck 2c 00 328A 4O2F 3REA 0000 1828 CWI 0 STAT OTHER CS BITS ON? 
0031DC 6F0D 2c0C 1713 17872 MVW  R7,TURTN SAVE RETURN ADDRESS 003590 6800 33ce 1899 BE Tau YES-TU EPROR 
0031E0 4020 3DBA 0020 1714 MVWI X'6020', IODCB PREP TO LEVEL 2 WITH THE 'I' BIT OFF boson RANE 1830 T75B TBTS (R2,4 RECAL 
0031F6 4724 3DB6 1715 MVA  TIOBLK,R? * 003296 GAG 1831 TBTS {2 3| INTERRUPT 
Aoaiee spies 1718 ave FREE . 003298 8828 2BF6 18CA 1832 av CSBOy+2,TURESUL+2 oe 
QOO31EE 6FOD 2C0C 1718 T72n MVW R7, TURTN SAVE RETURN ADDRESS 003540 3B0e 0003 1838 T7S5YY CHI X'0003',R3 CHECK FOR COMMAND REJECT 
SUMED. “OO0S, oere fan lee 8 sconx =e 0032A4 6801 3DFE 1835 BNE  $ERPS ERROR-TU NG 
oo. 0032A8 6E03 3CC2 1836 BAL XIOCS,R6 START CYCLE STEAL STATS 
A955 SIGIR GEER Beene” pee eere O032AC 3DFE 1837 DC A(SERRS) ERKOR is 
172.0 4 RR IIR GO IG OR ORO ai Gioia iciok tok tcck kt 0 6 FEB 76 ** poaak a ae 1638 cour feege®) wo ERROR? 
1725+* 0032B4 402B 2BF6 0001 1840 TWI xX'0001",CSBUF+2 NOT READY? 
1726+* TEST UNIT 0032BA 10EC 1841 JOFF T75B ” NO-ERROR 
1727+ OT READY 
172R+% (17875) RANDOM SEEK TEST 12/01/76 OO35BE E809 3294 1843 a AaSh Exit - 
+ 1844 T75T TBTS (R2,2 SET G- 
md | 035C4 AND 1845 ars {R55} SET SEEK FAILURE 
1732+% FUNCTION: THIS TEST DETERMINES WHETHER SEEK ERRORS ARE OCCURRING RETURN TO MDI CONTROLIER 
Veaice -RANDOMLY ALL OVEP THE DISK SURFACE OR ARE ONLY IN CEPTAIN AREAS. ese PINE hae dace sabe Re WGeeG Coc. EWN UENE SER EWRESGn tte ee eee MAR Hee He He Kk 3 ke HK 
+ . * 
1735+* > PROGRAM INITIALIZES ATTACHMENT. ee 
1736+ >  RECALIBRATE AND ISSUE SEFKS OF FWD 1,FWD 5,FWD 101,BKWD 101, SOaUER. “Ecosse 1821 T75h BAL  SENS1,R6 RFAD SENSE WORD ONE 
1737+* - BKWD 5, BKWD 1 AND BKWD 1. 0032CE 3DFF 1852 DC A ($EPR$) FRROR 
ee : THE STATUS OF "HOME POSITION! IS TESTED Se Eee SES REP 0032D0 402B 3B64 0400 1853 TWI X*O400',RDATA HOME POSITION ON? 
+ ‘* B 
1740+% > =A FWD 1 SEEK AND RECAL IS THEN ISSUED AND HOME POSITION TS DOES he Noon BeEe wOue cee SONS. Sat on gee Senn eek 
W74e* - AGAIN TESTED TO ESTABLISH THE RECAL OPERATIONAL STATUS. 0032DE 4020 39EE 0131 1856 MVWI 305,SKDCB+2 REVERSE DIRECTION 305 TRACKS 
1742+* : 0032E4 402C 39EEF 0800 1857 OWL x'0800' ,SKDCB+2 SET PEVERSE DIRECTION 
17434% OO32EA 4C67 1858 TBTS (R4,NI TURN ON NO INTERRUPT EXPECTED 
file eg eee 0032EC 6E£03 3BE8 1859 BAL SSEEK, ke SEEK 
17464% PROGRAM PASSES STATUS OF ALL LINFS IN FOLLOWING FORMAT: Ose re. BORE Saas ee Ott. “AOhe ee GO TO HOME ON ROUTINE 
toes : See EK qo ee Seer Tr aunee werrine melo 0032F6 4020 39EE 0001 1862 T7S5K MVWI 1,SKkDCB+2 SET FORWARD SEEK 1 TRACK 
17484 - TURESUL BIT J---------- Bee e aes cet nurene ee oeceo cee 0032FC 4C67 1863 TBS (k4,NT TURN ON NO INTERRUPT EXPECTED 
17494 : TURESUL BIT 2---------- Ah HANG-UP CONDITION HAS OCCURRED peace seeas anes 1eeR ee eed SEEK 
1750+ : TURESUL BIT 3---------- INTERRUPT 003302 3DFE 1865 DC A (SEFR$S) ERROR 
1751+* - 003304 6E03 33EC 1866 BAL HOFF,R6 GO TO HOME OFF ROUTINE 
1752+ . TURESUL BIT bo 77777 TT RECEY 003308 4020 39EE 0005 1867 MVWI 5,SKDCB42 SET FORWARD SEEK 5 TRACKS 
1753+ . TURESUL BIT 977-7 TTT TTT als 00330E 4cé67 1868 TBTS (RG, NT TURN ON NO INTERRUPT EXPECTED 
17544 : TURESUL BIT 6---------- NOT USED 003310 6E03 3BE8 1869 BAL SSEEK, RG SEEK 
17554% : TURESUL BIT 7---------- NOT USED 003314 3DFE 1870 DC A (SERRS) FPROR 
1736+* ° 003316 6803 33EC 1871 BAL HOF GO TO HOME OFF ROUTINE 
1757+% : TURESUL BIT 87--77--77- aoe 00331A 4020 39EE 0065 1872 MVWI 101,SKDCB+2 SET FORWARD SEEK 101 TRACKS 
1758+* ° TURESUL BIT 9—==-+--S=-- NOT USED 003320 uC67 1873 TBTS RYU: TU ON NO INTERRUPT EXPECTED 
1750+* . DURE OU Pat VO ore ost Hehe Cartane, 003322 6E03 3BE8 1874 BAL SSEEK,R6 SEEK 
1760+* : TURESUL BIT 11--------- BRAKE FAILURE Sasate. Soee 1875 DC A (SERRS) ERROR 
1761+% ° 003328 6E03 33EC 1876 BAL HOFF Re GO TO HOME OFF ROUTINE 
1762+% ; TURESUL BIT Vere tre ree 00332C 4020 39EE 0865 1877 MVWI X*'O865*,SKDCB+2 SET REVERSE SEEK 101 TRACKS 
1763+ ; TURESUL BIT 13--7--7 777 Ne eens 003332 4Cé67 1878 TBTS (P4,NI TURN ON NO INTERRUPT EXPECTED 
1764+ : TURESUL BIT V--~7-~-77 Ne eee 003334 6E03 3BE8 1879 BAL ASEER, RG SFEK 
1766+ : TURESUL BITS 16-31 CS STATS FOR FAILING OP 003338 6EO3 33EC 1981 BAL HOFF.R6 GO TO HOME OFF ROUTINE 
1767+* : 00333E 4020 39EFE 0805 1882 MVWT X*0865 * SKDCB+2 SET REVERSE SEEK 5 TRACKS 
176 8+* EXITS NORMAL 003344 4C67 1883 TBTS (PY TURN ON NO INTERRUPT EXPECTED 
1789+ ‘ RETIRNS TO MDI SUPERVISOR WHEN DONE. are mere Cee 13BG Sei @eeee ne eer 
+ : ERROR 
1771+* EXITS EPROR 00334c &6RO3 33EC 1886 BAL k (Sees GO TO HOME OFF ROUTINE 
yeaa ce ; RELA SAS Lo MS Oyen AOOn: 003350 4020 39EE 0801 1887 MV WI HORE AES eocnes SET REVERSE SEEK 1 TRACK 
T773+* 002356 4C67 1888 TBTS (R4,NI TURN ON NO INTERRUPT EXPECTED 
17744* RETURN CONTROL 003358 6E03 3BE8 1889 BAL SSERR.RO SEEK 
V775+* 00335C 3DFE 1890 DC A (SERRS) ERROR 
ia ae B TUPTN* RETURN TO NDI SUPERVISOR 00335E 6E03 33EC 1891 BAL HOFF, RG GO TO HOME OFF ROUTINE 
1777 84 RE ICI IOI III ICICI IG OI ICI I GIO GI RG a aca A ke ake ak ak ak ees heer 39EE 0801 doa neers ge a PRON ON NG THR CRUDE Ee OeOGED 
0031F6 6FOD 2C0C 1779477875 MVW 7, TURTN SAVE RETURN ADDRESS 00336A 6£E03 3BE8 1894 BAL © SSRER, RE SEEK 
O031FA 4020 2BD4 7875 1780+ MVWI X'7875', STUID SAVE TU TD FOP DISPLAY Besse. SORE 1895 ne A (SERBS) FPROR 
003204 6E03 3DCA 1782+ BAL $CONC CLEAR DEV DEP STG AND CONNECT I/O BL 003374 4020 39BE 0001 1897 MVWI X'0601',SKDCBt2 SET FOPWAPD SEEK 1 TRACK 
003208 3DFE ae DC A(SEFES) EPROR ADRS FOR INVALID PPEP 00337A 4C67 1898 TBTS (RU pNT) TURN ON NO INTERRUPT EXPECTED 
00320A C020 0232 1785 MVB  CPYID,RO DETERMINE TYPE OF PROCESSOR pee ea SEOs QEEe O06 nae A SEPSS) PT EBOR 
00320E F025 1786 CBI 37,P0° = 003382 6E03 33EC 1901 BAL  HOFF,R6 GO TO HOME OFF ROUTINE 
003210 1804 1787 SNE T75T¢c JUMP IF Nor 355 003386 6503 3BFO 1902 BAL $RECL,R6 RECALIBRATE 
903212 4020 3242 25uC 1788 NVI X*254C", 7757142 LOAD TIME CONSTANT FOR 2 SEC pease 6 8BO3 1903 BC Rh (SERRS) FPROR 
00321A 4020 3242 OCOE 1790 T75TC MVWI xX*OCOE',T75T14+2 Areas LOAD TIME CONS FOP 2 SEC Be oane 1634 1308 jOFE Mook 
003220 CA25 18C8 1791 T7572 MVWZ TURESUL,R2 LEAP RESULTS WORD 003396 CRS 1902 TBTR (P4,CSA) CS STATS RVAILABLE? 
003224 CA25 18CA 1792 MVWZ TURESUL+2,R2 CLFAR RESULTS WORD 003392 6800 3DFE 1909 AoEE @eRes OK_-NO EPROR 
003228 4224 18C8 1793 MVA TURESUL,P2 ADDPESS _OF FESULTS 003396 8828 2BF6 3AEA 1908 MVW  CSBUF+2,STATS ADDRESS OF CS STATS 
00322C 6E03 3BF0 1794 BAL SRECL ,R6 RECALIBRATE 00339C 4524 3AFA 1909 MVA STATS, B5 
pees 3220 17 ee a Mea Ey ERROR 0033A0 4&D87 1910 TBTR (R547) UNSAFE? 
003234 8028 19D0 3B63 1797 MVB DEVADD,IDCBI+1 LOAD DFVICE ADDPESS IN IDCB peoee me ane 645 ane 23°F, Bee nONae 
D0sgok 27ek S0B6 tee aye TOBLK, R7 eye 2 OE eke 003346 4D8A 1913 T75BB TBTR (5 10} BRAKE FAILURE? 
t 
003240 4024 1800 T75T1 MVWI X'0000',RO TIME OUT 2 SEC Ee ames Le TBrsS  (R3,41) SET- BRAKE FAILURE 
aaaone enue a e035 T775 ae TOLE RO : 0033AC 4D86 1916 T75CC TBTR (540) PLO OUT OF SYNC CHECK? 
003248 CA25 18C8 1803 MVWZ TURESUL,P2 CLEAR RESULTS WORD Beeena: dene ee TBTS  (R2,10) SET- PLO OUT OF SYNC 
00324C CA25 18CA 1804 NVWZ TURESUL42,R2 CLEAR PESULTS WORD Roaseo wanee 1919 T75DD TBTR (R519) SEEK CHECK? 
foe tie oo of oe ER BIEL §KG0 32c2 agg 770°? Rea tres aoe 
003223 8803 veos ae SRECL (PA Eeaut 003388 4D8B 1921 TBTR (R5,11) RESET UNSAFE S 
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17810 --- 4962 DISK STATUS AND SEEK TEST P/N= 1635239 EC=755285 PAGE 13 17810 --- 4962 DISK STATUS AND SEEK TEST P/N=1635239 EC=755285 PAGE 13A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT YBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003AC6 0000 2838 T86GG DC x*'0000! 2954 * 
003AC8 0000 2839 T41D DC X'0000! 2955 * SUBROUTINE 
OO3ACA 0000 2840 T4HILP DC xX¥*00008 2996. * 
DOIREE 0000 sBu2 eyLoc De © kO000" 5388 + Re 
OO3AD0 0000 ene Breet be : k— 2959 * COMPARE READ SECTOP ID DATA TO WRITE SECTOR ID DATA 
003AD2 0000 2844 HEADO DC A (*-* eee ; NORMAL AND TEST DATA. 
O3AD4 0000 2845 HEAD1 DC A (*-* 
ee 9000 Zou§ GDSEO pc A (*-* ele . CALLING SEQUENCE 
8 GDSE1 DC A (*-* 
OO3ADA 0000 one EROO DC A (*-* 2964 * BAL CMPRW,R6 (reSty 
OO3ADC 0000 2849 EROT DC A (*-* 2965. .* BAL CMPRT;R6 TEST) 
OO3ADE 0000 2850 HDOSV DC A (*-* 2966 * 
OOSKE2 0000 582) EROSY DE || OR (RO# s3eg * RETURN 
EROSV DC A (*- 
OO3AE4 0000 2853 ER1SV DC A (*#-* 2969 * BXS (F6,2) = NORMAL 
S33hEe $988 Base Paney ge RIES gai" 
OO3KEA 0000 ALT STATS De a *— x DOT 2 AH I A ROR HR AOR RR I RO A RC A OE RRC ROR ORCI 1 IE HR I A i te AR oe He 
2857 * 2973 * 
2859 COP T78DPCIO 01DEC76 O003B72 4724 0005 2974 CMPRT MVWI 5,R7 BYTE COUNT 
2860 ** (T78DPCTO) O0O3B76 4324 3A91 2975 MVA SéTST+1 ADDR OF RD SECT ID DATA (TEST 
2861 * 2/07/77 OO3B7A 4524 3A8A 2976 MVA WSIDT,R5 ADDR OF WR SECT ID DATA (TEST 
3be3 * THIS ROUTINE EAS THE FOLLOWING ENTRIES: SO3ng0 2998 0005 3344 CMPRW HV WI et3y COMPARE BYTE COUNT 
2864 * 7 0OO03B84 4324 2BDD 2979 MVA sCTID+1 R3 ADDR OF RD SEC ID DATA 
2865 * 1 BAL CEOP1,R6 CE DIAGNOSTIC OP1(TURN ON DIAG MODE) 003B88 4524 3A82 2980 MVA WR D,R5 ADDR OF WR SEC ID DATA 
2866 * P 003B8C 23BA6 2981 TT4Y CFNEN 3) » tRa) COMPARE ID DATA 
2867 * 2 BAL CEOP2,R6 WRITE DIAG CLOCK STEP DATA OO3B8E 68C0 0002 2982 BE 72) BCH IF WRITE ID DATA OK 
2868 * % 003B92 68D2 0000 etn ° B Beye COMPARE ERROR 
* 
2582 * 3 ks SENSORS Ce RERD SENSE 2OED: SEEO 2985 22 RIC I ICICI IORI a do dak 4 tek ii $e 4k ak 
2871 * ¥Y BAI. SENS1,86 CE RFAD SENSE WORD ONE 2986 * 
2872 * * 2987 * SUBROUTINE 
2873 * 5 BAL WRAP,®86 READ DIAGNOSTIC WPAP 2988 * 
2874 * ‘i 2989 * PURPOSE 
eed? : BXS (R6, 2) RETURN Sree : a LOGICAL SECTOR NUMBER TO A PHYSICAL SECTOR MINUS 
9877 FR III OR IIIc i ak gk fig i gicioiai iota ak kote gc ak ak kc ak a ak tek akc akc a ok ake ake ak akc ac oe 2992 * SETUE LOGICAL SECTOR # IN LOCATION "LGSEC? 
2878 * 2993 * PHYSICAL SECTOR # WILL BE LOADED IN LOCATION ' PHYSC! 
2879 * CE DIAGNOSTIC OP2 DATA WORD (CLOCK STEP) 2994 x 
2880 * 2995 * LOGICAL SECTOR# TO PHYSICAL SECTOR# CONVERSION 
2881 * BIT 00 - SET READY 2996 * LOGICAL- X 00, 1E, 01, 1F, 02, 20, 03, 21, O04, 22, 05, 23, 05, 24, 
2882 * BIT 01 - RESET READY 2997 * PHYSICAL X 00, 01, 02, 03, O4, 05, 06, 07, 08, 09, OA, OB, OC, OD, 
2883 * BIT 02 - SET WRITE CLOCK 2998 * 
2884 * BIT 03 - SET READ CLOCK 2999 * LOGICAL- 07, 25, 08, 26, 09, 27, OA, 28, OB, 29, OC, 2A, OD, 2B, 
2885 * BIT 04 - INDEX PULSE 3000 * PHYSICAL OE, OF, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 1A, 1B, 
2886 * BIT 05 - SECTOR PULSE 3001 * 
2887 * BIT 06 ~ STANDARD READ DATA 3002 * LOGICAL- OE, 2C, OF, 2D, 10, 2E, Ti5 2F, 125) 30% 13; at, Vy 32, 
2888 * BIT O07 - SPEED PULSE 3003 * PHYSICAL 1c, 1D, TE, 1F, 20, 21, 22, 23, 24%, 25, 26, 27, 28, 29, 
2889 * BIT 08 - BFHIND HOME 3004 * 
2890 * BIT 09 -—- SET SEEK COMPLETE 3005 * LOGICAL- 19, 33,. 16, 34% V7 35, 18% 36%. 19%. 37% Vay S8y- 18, 32, 
2891 * BIT 10 - RESET SEEK COMPLETE 3006 * PHYSICAL 2A 2B, 26, -2D,. 2B; 2F, 305 315. 32, 33; 34, 35,5. 36, 31, 
2892 * BIT 11 - PLO OUT OF SYNC 3007 * 
2893 * BIT 12 ~- RST RD/WRT CLOCK 3008 * LOGICAL- 1€, SE, 1D, 3B Xx 
2894 * BIT 13 - 3009 * PHYSICAL 36, 39;,: SAY. 3B, x 
2895 x BIT 14 - 3010 * 
2896 * BIT 15 - RESET DIAGNOSTIC MODE 3011 * 
2897 * 3012 * CALLING SEQUENCE 
9898 2 ROR RO IO II I IORI I ROR IIR IO OIE ICR BO OK Fok kak ke kook ak ak a ok 3013 * 
2899 * 3014 * BAL CONVT,&6 
2900 * 3015 * 
OO3AEC 6EOD 2BDA 2301 WRAP MVW R6,LSTIO SAVE ADDPESS OF LAST I0 3016 * RETUPN 
OO3AFO 8028 19D0 3B6F 2902 MVB DEVADD,1 IDCBRAP+1 LOAD DEVICE ADDRESS IN IDCB 3017 * 
OO3AF6 680C 3B6E 2903 0 IDCRRAP READ SENSE WORD 1 3018 * B (TT304+42) 
OO3AFA 6F05 3B50 2904 BNCC 7,CCEFRR CHECK COND CODE 3019 * 
OO3AFE 5601 2905 BXS (R6, 2) RETURN TO CALLER 3020 ORC CORIO I OCI IO IG GO OR kok kfc te fea ak 
2906 * 3021 * 
003B00 6EOD 2BDA 2907 CEOP1 MVW R6,LSTIO SAVE ADDRESS OF LAST I0 003B96 E€EOD 3BD6 3022 CONVT MVW P6,TT304+2 SETUP RETURN ADDR 
OO03B04 8028 19D0 3B67 2908 MVB DEVADD IDCBCE1+1 LOAD DEVICE ADDRESS IN IDCB OO3B9A 802B 3A5C 3A7B 3023 CB ZEROO, LGSEC+1 CK FOF LOG # ZEFRO 
OO3BOA 680C 3B66 2909 TO IDCBCE SET DIAGNOSTIC MODE 00 3BA0 100D 3024 JE TT 303° BCH IF LOG # IS ZERO 
OO3BOE 6F05 3850 2910 BNCC 7,CCERR CHECK COND CODE 00 3BA2 802B 3A7B 3AT7E 3025 CB ILGSEC+1,CB29 COMP LOG TO 29 
003B12 5601 2911 BXS (86, 2) RETURN TO CALLER O0O03BA8 1COD 3026 JGE RTT01 BCH IF LGSEC EO OR LESS THAN C829 
2912 * OO3BAA “O24 0002 3027 MVWI Lak SETUP MULTIPLIER 
003B14 6EOD 2BDA 2913 CEOP2 MVW R6,LSTIO SAVE ADDRESS OF LAST I0 OO3BAE E821 3A7B 3028 MB LGSEC+1,R0 LOG SECTOR # TIMES 2 
003818 8028 19D0 3B6B 2914 MVB DEVADD IDCBCE2+1 LOAD DEVICE ADDPESS IN IDCB O0OO03BB2 7802 003C 3029 SWI 60,F0 LOG SEC TIMES 2 MINUS 60 
OO3B1E 680C 3B6A 2915 Io IDCBCE2 WRITE DIAG CLOCK STFP 003BB6 C028 3A7D 3030 MVB PO,PHYSCtH1 PHYSICAL SECTOR NUMBER 
003B22 6FO05 3B50 2916 BNCC 7,CCERR CHECK COND CODE OO3BBA 500c 3031 J TT3O4 RETURN TO CALLER 
003B26 5601 2917 BXs (R6, 2) RETURN TO CALLER OO3BBC 89028 3A80 3A7D 3032 TT303 MVB FIVES, PHYSC+1 , PHYSICAL SECTOR # 59 
2918 * 003BC2 5008 3033 J ee RETURN TO CALLEP 
2919 * OO3BC4 4024 0002 3034 RITO1 MVWI 2 LOAD MULTIPLIER 
003B28 6EOQD 2BDA 2920 SENS1 AVW R6,LSTIO SAVE ADDRESS OF LAST I0 003BC8 E821 3A7B 3035 MB LbSRc+1, 70 LOG SECTOP # TIMES 2 
003B2C 8028 19D0 3B63 2921 MVB DEVADD,IDCB1+1 LOAD DEVICE ADDRESS IN IDCB OO03BCC 7802 0001 3036 SWI RO SUBTRACT ONE 
003B32 680C 3B62 2922 To TDCB1 READ SENSE WORD 2 OO3BD9 C028 3A7D 3037 MVB 6 PHYSC+H+1 LOAD PHYSICAL SECTOR # 
003B36 6F05 3850 2923 BNCC 7,CCEPRR CHECK COND CODE OO3BD4 6802 0000 3038 TT304 B RETURN TO CALLER 
OO3B3A 5601 2924 BXS (R6, 2) RETURN TO CALLER 3039 * 
2925 * 3040 3 OR ICO OR IO ORCI I IO GIO II IGRI RII ik iotok tot te lioke dee a 
Q0O03B3C 6E0D 2BDA 2926 SENSO MVW R6,LSTIO SAVE ADDRESS OF LAST TO 3041 * 
OO0O3B40 8028 19D0O 3B5F 2927 MVB DEVADD,1DCBO+1 LOAD DEVICE ADDRESS IN IDCB 3042 * SUBROUTINE 
003B46 680C 3B5E 2928 To TDCBO READ SENSE WORD 1 3043 * 
OO3B4YA 6F05 3B50 2929 BNCC 7,CCEFPR CHECK COND CODE 3044 * FUREOSE 
OO3B4UE 5601 2930 BXS (26, 2) RETURN TO CALLER 3045 * 
2931 * 3046 * LOAD WRITE SECTOR ID DATA BUFFEP FROM RD SEC ID BUFFER 
003850 JO6E 2932 CCERR DC X*706E* COPY STATUS ANY LEVEL INTO F3 3047 * 
003B52 336A 2933 SRL 13,83 POSITION CC CODE TO BITS 13-15 3048 * CALLING SEQUENCE 
003B54 C328 2BD6 2934 MVB R3,5I0IN * PUT IN LOG AFFEFA 3049 * 
003B58 68D2 0000 2333 P B (Pb) *® RETURN TO USEP 3050 ; BAL LWSID,P6 
OO03B5C 6FO05 2937 IORST DC X*'6FO5! RESET I0 3052 * RE TURN 
OO3B5E 2205 2938 IDCBO DC X*'2205°8 SENSE WORD ZERO 3053 * 
003B60 0000 2939 RDATAO DC oa) DATA WORD 3054 * BXS (P 6) 
003B62 2105 2940 IDCB1 DC x*2105' SFNSE WORD ONE 3055 * 
003B64 0000 2941 RDATA DC Died 3056 FR RO IO I IO I RIG IIR III I gig a dak ki iako kk gk ak ak ok ak 
003B66 4005 2942 IDCBCE1 DC x*4005! CE DIAG OP1 3057 * 
003B68 0000 2943 CEDAT DC a aos SENSE DATA 3058 * 
QO3B6A 4105 2944 IDCBCE2 DC x‘'4105'! CE DIAG OP2 OO03BD8 4724 0005 3059 LWSID MVWI 5,FP7 BYTE COUNT 
003B6CcC 0000 2945 CEDAT? D Nt bie | SENSE DATA O00 3BDC 4324 2BDD 3060 MVA SCTID+1 R3 ADDR OF RD SECT ID DATA BUFFEP 
QOO3B6E 2F05 2946 IDCBRAP DC x*2F05! READ DIAG WRAP OO3BE0 4524 3A82 3061 MVA WESID,R5 ADDR OF WR SECT ID DATA BUFFER 
003B70 0000 2947 RAPDAT DC A {(*-* SENSE DATA OO3BE4 2BAY 3062 MVEFN R3) , (F5) MOV DATA FROM PD TO WR BUFFER 
000232 rane ore EQU X¥*0232' CPi ID OO03BRE6 5600 eek e BXsS P6 RETURN TO CALLER 
2951 COPY T78IO O1DEC75 3066 * 
2952 ** (T78T0) 3067 * EXECUTE INPUT & OUTPUT COMMANDS 
2.953 FO RA ok Rk ak aR tok ok i ak i 9 2701/7 6 IO IO A I RIO a ak 3068 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
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3070 * LEST AND ANY SPECIAL SHIRCHES BEFORE BRANCHING TO fone 3180+% TO EXECUTE ALL 1/0 COMMANDS FROM A COMMON PLACE. 
G TO T 

3071 * SUPVR CALI. ee THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 

3072 * z + 

3073 * THIS SUBROUTINE WILL CHECK FOP THE FOLLOWING: 3187+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 

3074 * ‘ 3188+* THE I/O COMMAND. 

3075 x 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 3189+* 2. SAVES THE DCE BLOCK USED UNLESS IT IS A START CYCLE STATUS 

3076 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 3190+* ISSUED BY THIS SUBROUTINE. 

3077 * 31914 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGF UNLESS THE 

3078 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 3192+* STAPT CYCLE STATUS WAS ISSUFD BY THIS SUBROUTINE. 

3079 * i" 31934+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 

3080 * 1 BAL SRKEW,R6 READ SECTOR ID SKEWED 3194+* SINCE THE LAST BE (NT) INTERRUPT. IF AN INTERRUPT IS FOUND, 

3081 * ° . 3195+* MYSTERY INTERRUPT CONTROL BIT IS SET. 

3082 * 2 BAL SWKST,FP6 WRITE SECTOR ID SKEWED (TEST) 3196+* 5. MOVES THE ADDRESS br HE I/O CONTROL BLOCK IN Bet THE 

3083 * . 3197+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE eye TART?. 

3084 * 3 BAL SRWST,PE READ SECTOR TD SKEWED (TEST) 3198+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/0 COMMAND, TIMING 

3085 * . 3199+ STARTS TO DETERMINE A LOST INTERRUPT. 

3086 * 4 BAL SRIDS,P6 PEAD SECTOR ID (TEST) 3200+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 

3087 * i 3201+%* WAS AN ERROP OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 

3088 * 5 BAL SWKEW,R6 WRITE SECTOR ID SKEWED 3202+* 8. CHECK IF THEPE WAS A WRONG INTERRUPT LEVEL. 

3089 x : 3203+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 

3090 * 6 BAL SWSEC,P6 WRITE SECTOR ID 3204+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF ie RETORN. 

3091 x . 3205+* 11. CHECK TO SEE IF THE EXERCISEP IS TO BF TERMINATED. 

3092 * 7 BAL SWSTS,R6 WRITE SECTOR ID (TEST 3206+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 

3093 x 7 3207+* ISSUED BY THIS SUBROUTINE. 

3094 * 8 BAL SDIAG, 2&6 DTAGNOSTIC 3208+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON UE A 

3095 x . 3209+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BTT BEING ON, 

3036 : g BAL XIOCS,F6 CYCLE STEAL STATUS Saige COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 

a + 

3098 * 10 BAL SSEEK,F6 SEEK 3212+* CALLING SEQUENCE 

3099 * a 3213+* 

has : 11 BAL SRECL,R6 RECALIBRATE 3210+% THIS ROUTINE HAS THE FOLLOWING ENTRIES: 

es + 

3102 * 12 BAL SRDID,R6 READ SECTOR ID 3216+* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 

3103 * é 3217+* --> BAL XI01 MOD PARM PRELOADED IN 'TOMOD! 

3104 * 13 BAL $RD,R6 READ 3218+* --> BAL XIOCS ,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 

3105 * F 32194+* --> BAL XTOCS—4 ,R6 AUTO CS STATUS (FOLLOWING OTHER XIO 

3106 : 14 BAL SRDVY,R6 READ VERIFY cease % AND DOES NOT POST INTERRUPT STATUS) 

‘é + 

3108 * 15 BAL SWRT,F6 WRITE 3222+* RETURN CONTPOL, 

3109 * 3223+4+* 

3110 * 32244 BXS P6 2) RETURN TO USER NO ERROR 
OO3BE8 4020 3DBA 39EC 3111 $SEEK MVA SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 3229+* B RETUPN AND RETEY ON ERROR 
OO3RER 5064 3112 XIoO Sea Ge eed MATER OTL 5 GReROREREA SSO WEAE Dane ee eae ees 

3113 * 003CP8 CB25 3DRC 3228+xXIO MVWZ IOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP 
003BFO 4020 3DBA 39AC 3114 $RECL MVA CLDCB,IODCB SET UP BLOCK FOR SVC CALL Q0O03CBC 500A 3229+ J XI01 CS I/O'S ARE NOT RETRIED 
OO3BF6 5060 3115 J XIO 3230+* 

3116 * OO3CBE 4CAA 3231+ TBTR Ri sc RESET CS STATUS INTER ERROR INDICAT. 
OO03BF8 4020 3DBA 39cC 3117 SPRDID MVA RSDCB,IODCB SET UP BLOCK FOR soe CALL Q003CCO 4C68 3232+ TBTS RY SET "CYCLE STEAL STATUS IN PROGRESS 
OO3BFE OBFF 3118 MVBI X'PFI(R3 SET BUFFER TO 003CC2 4020 3DBA 39FC 3233+XIOCS MVA Ru ics ODCB SET UP CONTROL BLOCK FOR SVC CALL 
003c00 4524 2BDC 3119 MVA SCTID,R5 SETUP RFAD cocroe ID BUFFER ADPS 003CC8 4020 3DBC OOOF 3234+ MHVWI xG008", IOMOD SET CYCLE STEAL MODIFIER 
003CO4 4724 0006 3120 MVWI 6,R7 SETUP BUFFER LENGTH OO3CCE 4C28 3235+ TBT AB Rg IS CS IN PROGRESS, ERROR CONDITION 
003C08 2BAC 3121 FFN R3 {P5) INIT READ SECTOR ID BUFFER 003CD0 1213 3236+ JON os * YES, BYPASS SAVING I/0 ADRS 
003COA 4020 39DA 2BDC 3122 MVA SCTID, RSDCBt 14 DATA ADDR 003CD2 6EOD 2BDA 3237+XIO1 MVW R6,LSTIO SAVE TAR FOR RETRY IF REQUESTED 
003C10 5053 3123 J XIO 003CD6 4324 2BEY 3238+ MVA DCRUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 

3124 * OO3CDA 6D08 3DBA 3239+ MVW TODCB,R5 * AND THE FROM ADRS, ALONG WITH 
003C12 OBFF 3125 $RD MVBI X'"FF!,R3 SETRD BUFFER TO ALL FS OO3CDE OF1O 3240+ MVBI 16,R7° * THE NUMBER OF MOVES 
003C14 6D08 3A3A 3126 MVW RDDCB414,R5 SET UP READ BUFFFR ADRS 003CFO 2D64 32414 MVFN R5) §R3) MOVE 1 STATUS WORD AND ADJUST 
003C18 4724 0100 3127 MVWI  xX'0100',27 SET UP BUFFER LENGTH QOO3CE2 OBFF 3242+ MVBI 55,R CLEAR CYCLE STATUS BUFFER 
003C1C 2BAC 3128 FF N R3 (R5) CLEAR READ BUFFER OO3CE4 4524 2BF4 3243+ MVA CoBtr R5 * TO ALL ONES 
003C1E 4020 3DBA 3A2C 3129 SRDS MVA RDHcCB, IODCB SET UP ELOCK FOR SVC CALL OO3CE8 OF1O 3244+ MV BI RI. * 
003C24 5049 3130 J XIO OO3CFA 2BAC 3245+ FFN 5 4B5) * 

3131 * QOO3CEC 4020 2BD6 0708 3246+ MVWI 6 ose OVERLAY OLD CONDITION CODES 
003C26 4020 3DBA 3A1C 3132 SRDVY MVA VFDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 003CF2 CB25 2BD8 3247+ MVWZ SISB ZERO OUT OLD ISB VALUE 
003Cc2C 5045 3133 J XIO 324 84% 

3134 * OO3CF6 4CA1 3249+ TBTR ats RESET ANY ERROR BEFORE I/0 COMMAND 
003C2E 4020 3DBA 3A0C 3135 SWPT MVA WRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL QOO3CF8 4CA3 3250+XIO2 MTBTR R4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
003c34 5041 3136 J XIO OO3CFA 4724 3DBE 3251+ MVA LOBLK , R7 SET UP CONTROL BLOCK FOR SUPVR 

3137 * OO3CFE 4CA6 3252+ TBTR RY ,$LE) RESET LEVEL ERROR INDICATOR 
003C36 4020 3DBA 3A4C 3138 SRKEW MVA RKDCB, IODCE SET UP CONTROL BLOCK FOR SVC CALL 003D00 4C62 3253+ TBTS R4 ,XI SET EXPECTED INTR CONTROL BIT 
003C3C OBFF 3139 MVBI X'FF!',23 SET BUFFER TO F's 003D02 600A 3254+ SVC TART CALL SUPVF FOR T/O COMMAND 
003C3E 4524 2BDC 3140 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 3255+ 
003C42 4724 0006 3141 MVWI 6,R7 SETUP BUFFER LENGTH OO3D04 4CAT 3256+ IBTR Creare IS AN INTR EXPECTED 
003C46 2BAC 3142 FFN R4 {B5) INIT READ SECTOR ID BUFFER 003D06 6AC0 0002 3257+ BN R6, 2) * NO, PETURN TO USER 
003C48 4020 3A5A 2BDC 3143 MVA SCID, RKDCB+14 DATA ADDR 3258+* 

OO3C4HE 5034 ave : J X10 a2 nae s THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
+ 
003C50 4020 3DBA 3A3C 3146 SWKST MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 003D0A ODO0O 3261+ MVBI x00! SET UP WORK REG FOR "LOST IRTR® 
003C56 4020 3A4A 3A8A 3147 MVA WSIDT ,WKDCB+14 DATA ADDR 003D0C 4CA3 3262+XI0O8 TBTR (RW rhy> HAS INTERRUPT BEEN RECEIVE 
003C5C 502D 3148 J XIO OO3D0E 1238 3263+ JON * YES, CHECK IF ALL WAS SATISFACTORY 

3149 * 003D10 6002 3264+ SVC IDLE. ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
003C5E 4020 3DBA 3A4C 3150 SRWST MVA RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 3265+ SUPVR WILL RETURN HERE 
003C64 4020 3A5A 3490 3151 MVA SCTST, PKDCB414 DATA ADDR 003D12 7DA1 0001 3266+ AWI 1,R5 ADVANCE TIME OUT COUNT 
003C6A 5026 3152 J XIO 003D16 18FA 3267+ JINZ xf08 BCH IF TIME OUT NOT REACHED 

3153 * 003D18 4C61 3268+ TBTS R4,ER) SET ON ERROR CONTROL BIT 
003C6C 4020 3DBA 39cCC 3154 $RIDS MVA RSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 003D1A 68D2 0000 3269+ B R6) * ERR 'NO INTERRUPT! 
003C72 OBFF 3155 MVBI XY'tPFre ,R3 SET BUFFER TO F's 3271 4H KR RR OR RRR OR RIOR OR IOI IIR IO RK IRI toi It aK EKO SPER 7 6 *& 
003C74 4524 3A90 3156 MVA SCIST, R5 SETUP READ SECTOR ID BUFFER ADPS 3272+ 
003C78 4724 0006 3157 MVWI ave SETUP BUFFER LENGTH 3273+* SUBROUTINE 
003C7C 2BAC 3158 FFN B5R 5) INIT READ SECTOR ID BUFFER 32744+* 
0OO3C7E 4020 39DA 3A90 3159 MVA schst, SDCB+14 DATA ADDR 3275+* I/O EXECUTE ERROR HANDLING ROUTINE 
003C84 5019 3160 J XI 3276+* 

3161 * 3277+* PURPOSE 
003C86 4020 3DBA 3A3C 3162 SWKEW MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 3278+* 
003C8C 4020 3A4A 3A82 3163 MVA WRSTD,WKDCB+14 DATA ADDR 3279+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
003C92 5012 3164 J XxIO 3280+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 

3165 * 3281+* SUPERVISOR AND IT WAS NOT ACCEPTED. 
003C94 4020 3DBA 39BC 3166 SWSEC MVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 3282+* 
003C9A 4020 39CA 3A82 3167 MVA WRSTD, WSDCB+14 DATA ADDR 3283+* CALLING SEQUENCE 
003CA0 500B 3168 J XIO 3284+* 
0O03CA2 4020 3DBA 39BC 3169 $WSTS MVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 3285+* SUPVR WILL ENTER WHEN AN ERROR OCCUFS ON AN I/O COMMAND 
0O03CA8 4020 39CA 3A8A 3170 MVA WSIDT, WSDCB+14 DATA ADDR 3286+* 

OO3CAE 5004 3171 : J XIO a2877* RETURN CONTROL 
+ 
003CBO 4020 3DBA 399C 3173 $DIAG MVA DGDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 3289+ B R6) * RETURN TO USERS ERROR 
003CB6 5000 3174 J xtTo 359034 (R6) OR HANDLER 

3175 xEQrT FDOT a HH HM He Me MM Me Me He He RK RK KKK KK OR RE RKKREKERKEKT RK KKKKKEKRECKKKEKEK KKEE 

31764 KK RKKK KK 7 RII OI FOR IO IO FOR RII AIO ok KIKI TUL 7 6 3292+* 

3177+4+* 3293+* CC O= DEVICE NOT ATTACHED 

a\7ote SUB-ROUTINE eee FOR ie DEVICE BUSY 

+* T/0 = DEVICE BUSY AFTER RESET 

3180+* EXECUTE INPUT AND OUTPUT COMMANDS 3296+ / 3= COMMAND REJECT 

3181+ 3297+ Y= INTERVENTION REQUIRED 

3182+* PURPOSE 3298+ S5= INTERFACE DATA CHECK 

Se ~N aN ~\ \ > x . | a oe — > : 3 ~ NY \ i. Ber B * ‘\ ~ 
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32994+% 6= CONTROLLER BUSY 003D92 4c69 3416+XIOCO TBTS R4,CSA) TURN ON CS STATS AVAIL FLAG 
3300+* 7= T/O COMMAND EXCEPTED 003D94 5601 3417+ BXS R6,2 GO TO USER 
3301+* 003D96 4C21 34184+xXTOCV TET F4 , ER) WAS ERROR INTRK CONTROL BIT ON 
003D1E T706E 3302+XIOEFR DC X'706E* COPY STATUS ANY LEVEL INTO R3 003D98 100B 3419+ GOFF TOeX * NO, EXIT THIS ROUTINE 
003D20 336A 3303+ SRL 13,3 POSITION Ce€ CODE TO BITS 13-15 3420+* 
003D22 C328 2BD6 3304+ MVB F3,S5I01N * PUT IN LOG OUT AREA O0OO03D9A C520 2BD7 3421+ MVB SIOIN+1,R5 GET LAST INTR CC CODE 
003D26 68D2 O000 3305+ B (R6 * RETURN TO USER EFROR HANDLER OO3D9E F502 3422+ CBI 2,Fk5 IS THIS CC=2 
33074 2 OIC OR IOC OR tO dak gk dokok ack 1 ADR 7K eX 003DA0 68D1 0000 3493+ BNE (B6) * * NO, BCH TO FPROR HANDLER 
3308+* FE OO3DA4 C520 2BD8 34244XIOCO MVB ISB,R5 GET LAST ISB DATA BYTE AND IF CS 
3309+* SUB-POUTINE TL Q0O03DA8 6A00 3CBE 3425+ BN xtoc§-4 * AVAILABLE, GO AND GET IT 
3310+* TL OO3DAC 468D2 0000 3426+ B el ERROR 
3311+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL *S$INTL! EL 003DBO CB25 2BD2 3427+XIOCX MVWZ OFTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
33124+* - IL OO03DB4 5601 3428+ BXS (P6,25 RETURN TO USEP VIA PEG 6 
3313+* PURPOSE TL 34294 
3314+* Ti 3430+* I/O PARAMETER LIST 
3315+4+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVEK DETECTS AN ERROR TL 3431+* 
3316+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGPFE WITH THE TL 003D36 19D0 3432+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
3317+* EXPECTED CODE. TL 003DB8 3D1E 3433+ DC A (XIOER) FRROR ROUTINE ADRS 
3318+* TL OO3DBA 0000 343244+TI0DCB DC A (*-* DCB ADRS OP LEVEL & INTR 
3319+* CALLING SEQUENCE ce O0O03DBC 0000 3435+IOMOD DC A (*-* MODIFIER 
3320+* TL OO3DBE 0000 3436+ nc A (*-* ADRS OF LAST SVC CALL 
pve SUPVR WILL ENTER WHEN AN ERROP OCCURS ON AN I/O INTERRUPT 7 003DC0 0000 aan pc A (*-* SECOND WORD OF LAST IDCB 
+ + 
3323+* RETURN CONTROL TL 3439+4+* INTERRUPT CONTROL BLOCK FOR T/O COMMANDS 
3324+ IL 3440+4+* 
3325+* SVC EXIT RETURN TO USER VIA SUPVP ai 003DC2 19D0 34414+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
3326+* TL 003DC4 3DHE 3442+ DC A (INTOK INTERRUPT OK RETURN ADRS 
332 74 2 OR ORIG IGOR IG I io a a ikok dak dotk tok ok TT, 003DC5H 3D2A 34434 A (INTER INTERRUPT ERROR ADRS 
3328+* TL 903DC8 0003 3444+INTCC DC X*0003! INTERPUPT CODE EXPECTED 
S329" “CC = CONTROLLER END ISB = ADD STATUS IL QU GR RRR RIK RR KR ROR RC IIR ROR RII I rR fok kt tok kok tok ck 1M AY 76% * 
3330+* FOR 1= PROGRAM CONTROL INTERRUPT BITS = COMD REJECT TL 34474+* 
33314+* INTR 2= EXCEPTION INTEPRUPT FOR = INCOF LENGTH IL 34484+* SUBROUTINE 
3332+* 3= DEVICE END INTERRUPT INTR = DCB SPEC CK TL 34494 
3333+* Y= ATTENTION INTEFRUPT = STG DATA CK IL 3450+* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
3334+% 5= ATTENTION / PROGRAM CNTL INTR = INV STG ADPS TL 34514+%* 
3335+* 6= ATTENTION / EXCEPTION INTR = PROTPCT CK IL 3452+* PURPOSE 
3336+% 7J= ATTENTION / DEVICE END INTR = I-FACE DATA IL 3453+* 
3337+* TL 3454+% TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
O03D2A 706E 3338+INTER DC X'706E! COPY STATUS ANY LEVEL INTO R3 Lae 3455+* PREPARF ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
QO03D2C 336A 3339+ SRL 13,F3 POSITION INDICATORS IN R3 LG 3456+* TO INTFPRRUPT. 
003D2E 4424 2BCE 3340+ MVA OPfN1,R4 SET UP BASE ADP®S TL 34574 
Q003D32 4¢c28 3341+ TBT a c§) IS CS IN PROGRESS TL 3458+* CALLING SEQUENCE 
003D34 1006 3342+ JOFF INTES * NO TL 34594 
003D36 4C6A 3343+ TBTS (P4 an TURN ON CYCLE STEAL INTER EPPOR IL 3460+* THIS SUBROUTINE HAS THE FOLLOWING FNTRIES: 
003D38 6F0D 2C02 3344+ MVW P7,CSTLB SAVE CS EPR ISB VALUE, BITS 0-7 TL 3461+* 
003D3C C328 2C03 3345+ MVB R3,CSTL8+#1 * AND THE COND CODE TL 3462+* --> BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 
003D40 500A 3346+ J INTR1 IL 3463+* --> BAL SCONP ,R6 PREPARE DFVICF ONLY, ALREADY CONNECT 
OO03D42 4c24 334 74+INTES TRT A XE) TEST EXPECTED ATTEN / ERROR IND LL 34644+* = 
003D44 1002 3348+ JOFF NTET BCH IF NOT EXPFCTED Ti, 3465+* RETURN CONTROL 
0O03D46 F304 3249+ CBI 4,R3 IS THIS AN ‘ATTENTION! INTR TL 3466+* 
003D48 1006 3350+ JE INTR1 * YES, BCH TO END INTR SEQUENCE TL 3467+* BXS R6,2) RETURN TO USER VIA REG 6 IF OKAY 
OO3D4A 4C61 3351+INTET TBTS ie ER) SET ERROR ON T/O COMMAND CNTL BIT IL 3468+* OR B R6j * TF THE DEVICE COULD NOT BF CONNECTED 
003D4C 5004 3352+ J wrt TL 346 94% 
33534 THE ERROR INTERRUPT USES THE SAME IL ZY OF OK OK RK RO RR I ok tek io i fk kak ak oe i ke ok ke ok RK RRR RR ke ke ka ai ake te fe ok aie ic oie a 2 
3354+* ENDING SEQUENCE AS THE NORMAL INTR IL OO3DCA OFO6 34U714+$CONC MVBI 6,F7 NUMBER OF BYTE TO CLEAR 
335 64 RR OR FOR II RR ttt do tok 480 THADPR T6TL 003DCC OBO0D 34724 MVBI O.R3 * AND THE DATA TO USE 
3357+* IL OO3DCE 4524 2BDC 3473+ MVA DEV1,R5 * ALONG WITH THE ADRS TO USE 
3358+* SOUBROUTINE TL 003DD2 2BAC 3474+ FFN B3 (85) * 
3359+* IL 003DD4 CB25 2BD2 3475+ MVWZ oP 3,83 CLEAR OLD CONTROLS FOR NEW ROUTINE 
3360+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL 'SINTL! IL OO3DD8 4724 3DC2 3476+ MVA INTBL, RY SET F7 TO CONTROL BIOCK AND 
3361+* IL OO03DDC 6014 3477+ SVC CICB * CONNECT IT TO THIS DEVICE 
eas PURPOSE 77 OO3DDE 6AD0 0000 Siccs BN (P6) * FRROR PETUFPN TO USER 
3364+* TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL OO3DE2 8828 2COA 3DBA 34804+$CONP MVP SINTL,ITODCB PUT IN LEVEL & INTR PARAMETER 
3365+* TL OO3DE8 4724 3DB6 3481+ MVA TOBLK,F#7 SET P7 TO CONTFOL BLOCK TO PPEPARE 
3366+* CALLING SEQUENCE TL OO3DEC 4020 2BD6 0708 3482+ MVWI X¥'0708', SIOIN INITIALIZE CONDITION CODE STORAGE 
3367+* IL O0O03DF2 CB25 2BD8 3483+ MVWZ S$ISB,F * AND CLEAR OLD ISB VALUE 
3368+* SUPERVISOR WILL ENTER HEPE IF INTP CC IS AS REQUESTED RE QNO3DF6 6E0OD 2BDA 3484+ MVW R6,LSTIO SET UP ADDRESS THAT STARTED LAST T/0 
3369+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE TL OO3DFA 600c 3485+ SVC PREp * AND CALL ON SUPVR 
3370+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE BBE OO3DFC 5601 3486+ BXS (R6 ,2) RETURN TO USER 
3371+* COMMON SECTION IS HANDLED HERE. TL 3.0 8 84 AIO RG ROO IORI ICG GR Gg a oa a am otek 6 ADR 76 4% 
3372+* 3489+4* 
3373+* RETURN CONTROL IL 34904+* SUBROUTINE 
3374+* TL 34u944+* : 
Eras SVC EXIT RETUPN TO USER VIA SUPV® aC Sica e DISCONNECT THE YNTERRUPT CONTROL BLOCK AND LOG EPRORS 
+ + 
33774 FORO IORI IO IOI III IOI III IG OI OK I RIOR Fok tks TT 34944* PURPOSE 
OO3D4E 706E 3378+ INTOK DC X'7O6E! COPY STATUS ANY LEVEL INTO R3 Bip F 3495+* 
003D50 336A 3379+ SRL 13,83 POSITION INDICATORS IN F3 IL 3496+4+%* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
003D52 4424 2BCE 3380+ NVA OFfN1, R4 SET UP BASE ADRS IL 3497+* SET THE ‘NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT RAS 
003D56 4C63 3381+INTP1 TBIS RY, rh SET INTERRUPT RECEIVED IL 3498+% BEFN FOUND TO HELP THE OPERATOR DEFINE THE EPROR CONDITION. 
003D58 4C28 3382+ TET R4&,cS IS 'CS IN PROGRESS! ON pi 8 3499+ 
OO03D5A 1204 3383+ JON tntk2 * YES, BCH AROUND UPDATE TL 3500+* CALLING SEQUENCE 
003D5C C328 2BD7 3384+ MVB F3,SI0OIN+1 SAVE INTERRUPTING CC CODE LG 3501+* 
003D60 6F0OD 2BD8 3385+ MVW R7,S5ISB SAVE INTR STATUS AND DEV ADRS TL 3502+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
003D64 3386+ INTR2 Eee * IL 3503+* 
3387+%* CPCL R5 CURRENT LEVEL COPIED BY DCP TL 3504+* --> B SERRS SET 'NGt BIT AND CONVERT DATA TO LOG 
O003D64 3521 3388+ SLL 4,R5 POSITION INTR LEVEL AND PUT TL 3505+* --> B SCONX RETURN TO MDI SUPFRVISOR TO TEST STS 
003D66 0501 3389+ ABI 1,R5 * IN 'I* BIT Age 3506+* 
003D68 CD24 2COA 3390+ CW SEINTL,RS IS THIS THE CORRECT INTR LEVEL IL ~ 3507+* RETURN CONTROL 
003D6C 1002 3391+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 3508+* 
OO03D6E 4C66 3392+ TBTS P4,SLE) SET THTR LEVEL ERPOR CONTROL BIT TL 3509+* B TURTN * RETURN TO MDI 
003D70 4C61 3393+ TBIS Bu eT SET ERROR ON T/O COMMAND CNTL BIT IL 3510+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
O003D72 4CA2 33944+INTR3 TBTR RY ,XI WAS INTERFUOPT EXPECTED TL 35114+* 
003D74 1204 3395+ JON nr hx * YES, EXIT OFF THIS INTR LEVEL IL 3512 + HOR ROR FOR IORI RO IOI IO IO Ig RIOR IIR ROR Rai gta gto ROR ROR A RO ee 
003D76 4C60 3396+ TBTS (R4,MT) is met SET MYSTERY INTP CONTROL BIT IL OO3DFE 4020 1818 8000 3513+SERRS MVWI X'8000' , TUSTATUS SET ON "NO GOOD! STATUS BIT 
003D78 F304 3397+ CBI 4 ,R3 ATTENTION INTERRUPT? It OO3FO4 4724 3F68 3574+ MVA HEBLK, 4 GET ADRS OF CONTROL BLOCK 
OO3D7A 1001 3398+ JE TirPx YES TL 003E08 601A 3515+ svc TO CONVERT HEX TO EBC VIS DCP 
S83B7E 8508 sigorrunex, yes, fart EYEE ANS EEVEE WEA guSWR 70 pom EE | B93E9A $380 ag, aD nue Gage 
+ c + 
302 + 3k IO I RO II IORI IRI Rf RO FICK) 3 FE BTA #* O03E10 6BOD aee5 32143 ae Ra Guha” SET UP BUFFER STORAGE 
3403+* OO03E14 4124 3890 3519+ MVA  LINE1,R1 
3404+* THIS IS THE CONTINUATION OF EXECUTE I/0 AFTER THE INTERRUPT 003E18 OFOY 3520+ MV BI 4,R7 
3405+* HAS BEEN SERVICED. THE EXERCISEP FINDS AN INTERRUPT HAS BEEN OO3E1A OEFOS8 3521+ MVBI 8,R6 
3406+* RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. QO3E1C 2B24 3522+MVBUF MVFN (R3) , (R1) 
3407+* OO3E1E OFOY 3523+ MVBI 4k 
3408+* Q03E20 OA40 3524+ MVBI X'4O',R2 
003D80 4CA4 34094+XIOCK TBTR RY, XE) WAS AN ERROR EXPECTED O003E22 C258 3525+ MVB R2 RN) + 
003D82 6ACO 0002 3410+ BN R6 2) * YES, EXIT THIS ROUTINE 003E24 BEFB 3526+ JcT MVBUF,R6 
003D86 4CA8 3411+ TBTR Puy,CS) WAS AUTO CS JN PROGRESS 003826 OFOS8 ( 3527+ MVBI 8,R6 
003D88 1006 3442+ JOFF XIO€V * NO, CONTINUE CHECKING Q03£28 7921 002c 3528+ AWI 44, R1 
OO3D8A 4C2A 3413¢ TBT ee CE) ts c& In AN ERR CONDITION 003EF2C BDF 3529+ Jct MVBUF,RS 
003D8C 1002 34144 JoFF xtobo # NO, BCH “003E2E 4020 1802 FIFO 3530+ MVWI PIDMSG610,PID+2 
OO3D8E 68D2 0000 3415+ B (R6) * CS ERROR 003E34 4020 19B8 3F66 3531+ MVA FAKETU, @DCADD1 
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DECLARED 
809 
810 
794 

3114 
3111 


808 


105 
106 
42 
44 
44 
47 
4g 


3542 
3563 
3558 
772 
2802 
2932 
798 
878 
2671 
2948 
796 
797 


827 


2721 
835 
2285 
817 
3559 
108 


812 
2659 
70 
609 
50 
789 


864 
3561 
2803 

631 

635 

641 

657 

673 

677 

681 

685 

695 

7109 


NAME 
$SIOIN 
$ISB 
$LE 
$RECL 
$SEEK 


$STUID 


@DCADD1 
@DCADD2 
@FIXT 
a@GOTO 
®QUES 
@QUXX 
@TUXX 


BEGIN 
BIT0080 
BUFPT 
B63 
CB29 
CCERER 
CE 
CICB 
CLDCB 
CPUID 
CS 
CSA 


CS BUF 


CSDCB 
CSTL8 
CTR59 
DCBUF 
DC2PT 
DEVADD 


DEV1 
DGDCB 
DUMMY 
ENTPT 
EQ 

ER 


EXIT 
FAKETU 
FIVE9 
FO00100 
F00109 
FOO111 
FO00130 
FO0133 
FO0140 
FO00150 
F00153 
F00156 
F00159 
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P/N= 1635239 EC= 


CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


ADDRESS. HEX OO anode ak IN 
2934 3246 3304 3384 3421 3482 
ADDRESS. HEX LOCATION(OOO0O02ED8) IN 
3247 3385 3424 3483 
anna ance HEX VALUE (00000026) 
RESS. HEX Oe oe eee ea ah IN 
1 1256 1363 1505 1794 1806 
RESS. HEX Seen en (Cece ey IN 
1 1262 1265 1267 1351 1387 
Aces 1874 1879 1884 1889 
RESS. HEX Len reg ak IN 
1005 1134 1240 1329 1479 
2 3534 3568 
RESS. HEX LOCATION (000019B8) IN 


Ww 


RESS. HEX LOCATION (000019BA) IN 
OLUTE. HEX VALUE (00000101) 
45 498 543. 546 
LUTE, HEX VALUE (00000200) 
501 537 579 597. 603 
. HEX VALUE (00000100) 
HEX VALUE (00000400) 


FEX Bor heer aeee 
453 465 477 


GW 


jo) 
fo) 


513 
RESS. HEX LOCATION (00003E58) IN 
OLUTE. HEX VALUE (00000080) 
RESS. HEX LOCATION (00003F60) IN 
OLUTE. HEX VALUE (0000001F) 
2530 2642 
RESS. HEX LOCATION(00003A7E) IN 
ESS. HEX LOCATION(00003B50) IN 
2910 2916 2923 2929 
LUTE. HEX VALUE (0000002a) 


3343 34 
HEX VALUE (00000014) 


N Ww Me W WwW WwW 
w 
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HEX LOCATION (00003F66) IN 
RESS. HEX LOCATION(00003A80) IN 
RESS. HEX LOCATION(000026B8) IN 
RESS. HEX LOCATION(000026BE) IN 
PESS. HEX LOCATION (000026FC) IN 
RESS. HFX LOCATION(000027D2) IN 
RESS. HEX LOCATION(000028A0) IN 
RESS. HEX LOCATION(000028A6) IN 
RESS. HEX LOCATION (000028BE) IN 
RESS. HEX LOCATION (000028C4) IN 
RESS. HEX LOCATION(0000295C) IN 
RESS. HEX LOCATION(00002A0EF) IN 


Ww WW 


ghDPRESS. HEX LOCATION (000039AC) IN 

BSOLUTE. HEX VALUE (00000232) 
1012. 1139 1245 1485 1785 

BSOLUTE. HEX VALUE (00000028) 
3232 3235 3341 3382 3411 

BSOLUTE. HEX VALUE (00000029) 
1158 1401 1509 1570 1646 1810 
2463 2614 3416 

DDRESS, HEX LOCATION (OQQQ2BF4) IN 
1030 1045 1160 1181 1189 1403 
1572 1606 1648 1812 1832 1840 
1986 2005 2465 2486 2494 2616 
ghBBRESS. HEX LOCATION (000039FC) IN 
3hP RESS, HEX LOCATION (00002C02) IN 

DDRESS. HEX LOCATION(000036B8) IN 
2224 2235 2243 
gADBRESS. HEX LOCATION (00002BE4) IN 
383 RESS. HEX LOCATION (00003F62) IN 

DDRESS. HEX mest Cat IN 

42 1010 1011 1145 134 84 
2431 2902 2908 2914 2921 2927 

DDRESS. HEX LOCATTON (00002BD0} IN 
ghDBPRESS. HEX LOCATION (0000399C) IN 

BSOLUTE. HEX VALUE (90000090) 

9 4414 49 3 

DDRESS. HEX LOCATION (O00026AE) IN 

BSOLUTE. HEX VALUE (00000000) 

5 555 588 

BSOLUTE. HEX et Sear ee 
1028 1156 1187 38 1796 
2461 2492 3249 3393 
gRBSOLUTE. HEX VALUE (00000006) 
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CSECT (17810 
CSECT (17810 


0 
0 


CSECT (17810 
CSECT (17810 


549 576 


525 552 
CSECT (17810 


CSECT (17810 
CSECT (17810 


CSECT (17810 


CSECT (17810 


2113 2326 


NNWO 


90 
SE 
51 
30 
64 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (I7810 
CSECT(I7810 | 
1797 


2107 
3432 3441 


CSECT (17810 
CSECT (I7810 


CSECT (17810 


yegg tose 
CSECT (17810 
CS ECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 


CSECT (17810 
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) LENGTH (2) 
) LENGTH (2) 


L LENGTH (6) 
2459 

) LENGTH (6) 
1859 
2341 


LENGTH (2 
23)1 


) LENGTH (1) 
) LENGTH (1) 


564 
) LENGTH (2) 


) LENGTH (2) 


) LENGTH (2) 
) LENGTH(2) 


) LENGTH (2) 


2432 


LENGTH (1) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
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ub 
U 
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na 


1b8 
538 
) LENGTH (2) 
) LENGTH (2) 


) LENGTH (1) 


1904 


LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LFNGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
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DECLARED 


723 
737 
741 
745 
3567 
19 34 
2529 
1975 
884 
2942 
2944 
29 46 
2938 
2940 


860 
791 


3441 
3338 
3347 
3351 
3378 
3400 
3381 
3385 
3394 
3432 


3434 


3435 
2937 
40 
2824 
2800 
3548 
811 
788 
3922 
62 
8090 
795 


2561 
408 
420 
432 
4338 
447] 
450 
453 
465 
477 
489 
498 
501 
507 


NAME 
F00167 
F00170 
F00175 
F00178 
HEBLK 
HOFF 
HOMTS 
HON 
HTOE 
IDCBCE1 
IDCBCE2 
IDCBRAP 
IDCBO 
IDCB1 


IDLE 
IN 


INTBL 
INTER 
INTES 
INTET 
INTOK 
INTRX 
INTR1 
INTR2 
INTR3 
IOBLK 


IO DCB 


IOMOD 
IORST 
17810 
LCT 
LGS EC 
LINE1 
LSTIO 
MT 
MVBUF 
MX 

NG 

NI 


NTRKS 

NO0001 
N00002 
NO0003 
NOOOO4 
NO0005 
NO0006 
N00007 
N00008 
N00009 
NO0010 
NO0O011 
N00012 
NO00013 
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4962 DISK STATUS AND SEEK TEST 


ce ee) tS ey 


P/N= 1635239 


CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


ADDRESS. HEX LOCATION (00002AC0) IN 
ADDRESS. HEX LOCATION(00002B84) IN 
ADDRESS. HEX LOCATION(00002B8A) IN 
ADDRESS. HEX LOCATION(00002B90) IN 


604 
ahDDRESS. HEX LOCATION(00003F68) IN 
DRESS. HE LOCATION (000033EC) IN 
1866 1871 jefe 1881 91 
; DRESS. HEX LOCATION(00003862) IN 
; DRESS, HEX LOCATION (0000345A) IN 
ghBSOLUTE. HEX VALUE (0000001A) 
DRESS. HEX LOCATION(00003B66) IN 
2908 2909 
; DRESS, HEX LOCATION(O00003B6A) IN 
DRESS. HEX LOCATION(OOO03B6E) IN 
2902 2903 
DRESS. HEX LOCATION(00003B5E) IN 
1011 2927 2928 
DRESS. HEX LOCATION (00003B62) IN 
1 1145 1340 1484 1797 2107 
2 2922 
OLUTE. HEX VALUE(00000002) 
1 1149 1254 1344 1500 1801 
OLUTE, HEX VALUE (00000023) 
1 1638 1672 1938 1977 2545 
a RDDRESS. HEX LOCATION (00003DC2) IN 
RESS. BEX LOCATION(00003D2A) IN 


Ww 


RESS. HEX LOCATION(00003D42) IN 
RESS. HEX LOCATION (OOOO3D4A) IN 
RESS. HEX LOCATION (OOOO3D4E) IN 


UJ 
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CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
dSEcr (17810 
CSECT (17810 


CSECT (17810 
CSECT (I7810 
CSECT (17810 
CSECT (I7810 


CSECT (17810 
2431 2567 
2335 2452 
2578 2605 


CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT(I7810 
CSECT (17810 
1798 


CO MWWwO WW 


CSECT (17 


CS ECT (17810 
CSECT (17810 
CSECT (I7810 
CSECT (17810 
3484 
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1 

S 

1 
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8 
at 
; DRESS, HEX LOCATION (00003D7E) IN 

DRESS. HEX LOCATION(00003D56) IN 
3346 3350 33 
: DRESS. HEX LOCATION(00003D64) IN 
: DRESS. HEX LOCATION (00003D72) IN 

DRESS. HEX LOCATION (00003DB6) IN 
1018 1146 1251 1341 #1497 1715 
3251 3481 

DRESS. HEX LOCATION(00003DBA) IN 
1714 3111 3114 3117 3129 3132 
3150 3154 3162 3166 3169 3173 
" DRESS. HEX Foc aPTON (00003DBC) IN 
; DRESS. HEX LOCATION(O00003B5C) IN 

ECT. START (00002500) LENGTH (6766) ESDID(0) 

DRESS. HEX LOCATION(OOOO3AAA) IN 
1546 1548 1681 169 69 

DRESS. HEX LOCATION (00003A7A) IN 
3023 3025 3028 5 
: DRESS. HEX LOCATION (00003E90) IN 

DRESS. HEX LOCATION (00002BDA) IN 
2901 2907 2913 2920 2926 3237 

SOLUTE. HEX VALUF (00000020) 


a8) 
0 Op Ut Oops 1) ek A ft we SD NO Ft 0 ot Ge Gt tt Et NUT OO OOP OD OD OD OM U1 COM Ul OP UN 


HEX LOCATION (O0003E1C) IN 
RESOLUTE. HEX VALUE (00000204) 
OLUTE. HEX VALUE(0000002C) 

. HEX VALUE 90000027) 

2 1858 1868 1873 
8 2533 3383 56 

HEX LOCATION(000038BA) IN 
HEX LOCATION (00002570) IN 
P HEX LOCATION (00002582) IN 
PESS. HEX LOCATION(00002594) IN 
RESS, HEX LOC ATION (00002540) IN 
RESS. HEX LOCATION (000025A2E) IN 
DRESS. HEX LOCATION (000025B2) IN 
DRESS. HEX LOCATION (000025B6) IN 
DRESS. HEX LOCATION(000025C8) IN 
DRESS. HEX LOCATION(000025DA) IN 
DRESS. HEX LOCATION (000025EC) IN 
DPESS. HEX LOCATION (000025FA) IN 
DRESS. HEX LOCATION (000025FE) IN 
DRESS, HEX LOCATION(0000260A) IN 


CSECT (17810 


1878 1883 

CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT(1I7810 
CSECT (17810 
CSECT (17810 
CSECT(I7810 
CSECT (17810 
CSECT (17810 
CSECT(I7810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 


- . 
C) 


Ls i © 


EC=755285 


we 


6 
0 


i nn 


1888 


A, a ad 


OO) © 


PAGE 17A 
COPYRIGHT IBM CO%P 1976 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 


LENGTH ( 2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 


LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (40) 
LENGTH (2) 


LENGTH (2) 


LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


C) 


es 
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DECLARED 
510 
513 
525 
537 
543 
546 
549 
552 
564 
576 
579 
585 
597 
603 

61 
60 
753 


776 
104 


2801 
72 


3562 
870 
2941 


2939 
2754 
866 
877 
2776 
2284 
2686 
3034 
816 
28 11 
2926 
2920 


2283 
2282 
2710 


1611 
868 
2856 


107 
2823 
1270 
2344 
2788 


4962 DISK STATUS AND SEEK TEST 


NAME 
NO00014 
NO0015 
N00016 
NOOO017 
NO00018 
NO00019 
N00020 
NO0021 
N00022 
N00023 
NOO0024 
N00025 
N00026 
N00027 
OF 

ON 
OPTN1 


OPTN3 
PARMARA 


PHYSC 
PID 


PIDMSG 10 
PREP 
RDATA 


RDATAO 
RDDCB 
RESET 
RICB 
RKDCB 
RSAVE 
RSDCB 
RTTO1 
SsCTID 
SCTST 
SENSO 
SENS1 


SEN10 
SEN11 
SKDCB 


SKLOP 
START 
STATS 


SUPSTAT 
SVSEK 
S13E 
S31E 
TIMEOUT 


P/N= 16 35239 


CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


ADDRESS. HEX LOCATION(0000260E) IN 
ADDRESS. HEX LOCATION (00002612) IN 
360 508 619 
ADDRESS. HEX LOCATION (00002624) IN 
ADDRESS. HEX LOCATION (00002636) IN 
ADDPESS, HEX LOCATION (00002642) IN 
ADDRESS. | HEX LOCATION (00002646) IN 
ADDRESS, HEX LOCATION(0000264A) IN 
ADDRESS, HEX LOCATION (0000264) IN 
ADDRESS. HEX LOCATION (00002660) IN 
ADDRESS. HEX LOCATION (00002672) IN 
ADDRESS. HEX LOCATION (00002676) IN 
ADDRESS. HEX LOCATION (00002682) IN 
ADDRESS. HEX LOCATION (00002694) IN 
ADDRESS. HEX LOCATION(000026A0) IN 
ABSOLUTE. HEX VALUE (00000202) 
441 468 56 
ABSOLUTE. HEX VALUE (00000200) 
480 516 528 
ADDRESS. HEX LOCATION (00002BCE) IN 
1906 1135. 1241 1330 1480 1781 
ADDRESS. HEX LOCATION (00002BD2) IN 
3427 3475 
ADDRESS. HEX LOCATION (00001968) IN 
418 430 445 463. 475 87 
562 574 595 
ADDRESS. HEX LOCATION(00003A7C) IN 
3030 3032 3037 
ADDRESS. HEX LOCATION(00001800) IN 
74 75 76 77 78 79 
83 84 85 86 87 88 
92 93 94 95 96 97 
101 102 103 #1086 #£=#$«105 8§=106 
110 #117 112 113° °114 ~~ «115 
ghBSOLUTE. HEX VALUE (0000F1F0) 
ABSOLUTE. HEX VALUE(0000000C) 
1716 3485 
ADDRESS. HEX LOCATION (00003564) IN 
1049 1195 1356 1368 1394 1557 
1635 1680 1853 1932 1968 2009 
2219 2227 2232 2238 2246 2259 
2553. 2566 2590 2596 2610 
ADDRESS. HEX LOCATION(00003B60) IN 
ADDRESS. HEX LOCATION(00003A2C) IN 
3126 3129 
ABSOLUTE. HEX VALUE (00000008) 
1019 1147 1252 1342 1498 1799 
ghBSOLUTE. HEX VALUE (00000013) 
ADDRESS. HEX LOCATION(OO003A4C) IN 
3138 3143 3150 3151 
ADDRESS. HEX LOCATION (000036B6) IN 
2127. 2130 
ADDRESS. HEX LOCATION(000039CC) IN 
3117. 3122-3154 «3459 
gBDRESS. HEX LOCATION (00003BC4) IN 
ADDPESS. HEX LOCATION (00002BDC) IN 
2693 2705 2783 2979 3060 3119 
ADDRESS. HEX LOCATION(00003A90) IW 
2975 3151 3156 3159 
ADDRESS. HEX LOCATION(00003B3C) IN 
ADDRESS. HEX LOCATION (00003B28) IN 
1047 1193 1354 1366 1392 1555 
1633 1678 1851 1930 1966 2007 
2230 2236 2244 2257 2263 2270 
2594 2608 
ADDRESS. HEX LOCATION (000036B4) IN 
2123 2129 
ADDRESS. HEX LOCATION (000036B2) IN 
2124 2130 2132 
ADDRESS. HEX LOCATION (000039EC) IN 
1258 1259 1264 1349 1350 1386 
1696 1855 1856 1857 1862 1867 
1887 1892 1897 2339 2340 2498 
2531 2532 2580 2600 2644 3111 
ADDRESS. HEX LOCATION(000030D0) IN 
1547 1550 1695 
gRBgOLUTE. HEX VALUE (0000000A) 
ADDRESS. HEX LOCATION (00Q03AEA) IN 
1030 1031 1041 1160 11€1 1177 
1511 1512 1528 1572 1573 1592 
1812 1813 1828 1908 1909 1924 
1986 1987 2002 2465 24866 2482 
gBBRESS. HEX LOCATION (000019C4) IN 
ADDPESS. HEX LOCATION (00003AA8) IN 
2531 2644 
ADDRESS. HEX LOCATION(OO002E1E) IN 
1243 1257 1261 1263 1266 1268 
ADDRESS. HEX LOCATION(0000370A) IN 
2324 2338 2342 
ADDRESS. HEX LOCATION (00003A60) IN 


CSECT(I7810 
CSECT (17810 
CSECT(I7810 
CSECT (17810 
CSECT (17810 
CSECT(I7810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 


CSECT (17810 
2322 ©2427 


CSECT (17810 
CSECT (77810 
496-523 
CSECT (17810 
CSECT (17810 

81 


80 
89 90 
98 99 
107-108 
3530 
CSECT (I7810 
1598 1620 
2127 2128 
2265 2272 


CSECT (17810 
CSECT (17810 


2333 2450 


CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
3122 3140 
CSECT (17810 
CSECT (17810 


CSECT (17810 
1596 1618 
2125 2217 
2538 2551 
CSECT (17810 
CSECT(I7810 
CSECT (17810 
1544 1545 
1872 1877 
2504 2515 


CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
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LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 


LENGTH (2) 


LENGTH (1 
sks ee 
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B 
9 
10 
10 


6 
1 
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NIN ww 


b 
2 
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Fe ee 


31 
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162 
222 
258 
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6 
9 
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y 
6 
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WON 


549 
882 
520 


AwWOO 


LENGTH (2) 
LENGTH (1) 


LENGTH (2) 


LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 


3 


LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (4) 


LENGTH (2) 


LENGTH (1) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
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DECLARED 


2789 
1497 
3032 
3038 
1493 
2439 
Z53) 
2570 
2445 
2484 
2449 
2981 
1017 
10 20 
1018 
1021 
2262 
2268 
2119 
2121 
103 

95 
101 


840 


77 
78 
1174 
1179 
1165 
1144 
1168 
1148 
1145 
1199 
1171 
1183 
849 
1381 
1386 
1422 
1363 
1375 
1339 
1343 
1340 
1401 
1408 
1411 
1414 
1417 
1360 
1379 
1372 


4962 DISK STATUS AND SEEK TEST 
CROSS-REFERENCE LISTING 


NAME 


TONE 
TTT31 
TT303 
TT304 
TT31 
TT 32 
TT32A 
TT32B 
TT32C 
TT 320 
TT321 
TT4Y 
TT 70 
TT70A 
TT70OB 
TT70C 
TT73A 
TT 736 
TT 76 
TT 76A 
TUINPT 
TUMSGWTR 
TURESUL 


TURTN 


TUSTATUS 
TUWORK 
T23A 
T23AA 
T23SS 
T23T 
T23TT 
T23T1 
T23T2 
T23U 
T230U 
T23YY 
T3C02 
T30A 
T30B 
T30C 
T30D 
T30E 
T30TC 
T30T1 
T30T2 
T300 
T301 
T302 
T303 
T304 
T306 
T307 
T308 


ATTRIBUTES AND REFERENCES 


1615 1616 1640 1674 
se aeae HEX LOCATION (O0003A64) 


ADDRESS. HEX LOCATION (00002F88) 
ghDDRESS. HEX LOCATION (00003BBC) 
gADBRESS. HEX LOCATION (00003BD4) 
ADDRESS. HEX LOCATION (00002F70) 

HEX LOCATION (00003744) 

HEX LOCATION (00003880) 

HEX LOCATION (000038D4) 
LOCATION (0000375C) 
LOCATION (000037D6) 
LOCATION (00003774) 
LOCATION (00003B8C) 
LOCATION (00002C4C) 
LOC ATION (00002C58) 
LOCATION (00002C52) 
LOCATION (00002C5C) 
LOCATION (0000367E) 
LOCATION (00003690) 
LOCATION (0000350A) 
LOCATION (00003516) 
LOCATION (00001948 
94 2196 


2201 
LOCATION (000018BA) 
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=_ ow 
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OC ATION (00001818 
LOCATION (0000181A) 
LOCATION (00002D66) 
LOCATION (00002D76) 
LOCATION (00002D54) 
LOCATION (00002D0E) 
LOCATION (00002D5A) 
LOCATION (00002D20) 
HEX LOCATION (00002D14) 
HEX LOCATION (00002DB2) 
HEX LOCATION (00002060) 
RESS. HEX LOCATION (00002D82) 
RESS. HEX LOCATION (00002C14 
467 479 515 


527 
RESS._ HEX BIC ATS ON COOOgsECH) 


ESS. HEX LOCATTON (00002ED3) 
HEX LOCATION (00002F32) 
HEX LOCATION (00002E9C) 
HEX LOCATION (00002ECO) 
HEX LOCATION (00002E46) 
HEX LOCATION (00002E58) 
HEX LOCATION (00002E4C) 
LOCATION (00002EFC) 
LOCATION (00002F10) 
LOCATION (00002F16) 
LOCATION (00002F1C) 
LOCATION (00002F22) 
LOCATION (00002E92) 
LOCATION (00002EC8) 
LOCATION (00002EB6) 


HEX 
HEX 
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LOCATION (000032A0) 
LOCATION (0000345E) 
LOCATION (000033F0) 
LOCATION (00003470) 
LOCATION (00003402) 
LOCATION (00003576) 
LOCATION (00003582) 
LOCATION (00003590) 
LOCATION (0000359E) 
LOCATION (000035AC) 
LOCATION (000035F8) 
LOCATION (000035F4) 
LOCATION (000035EC) 
LOCATION (000035D8) 
LOCATION (000035C0) 
LOCATION (00003574) 
LOCATION (0000358E) 
LOCATION (0000359C) 
LOCATION (000035AA) 
LOCATION (000035FE) 
LOCATION (00003616) 
LOCATION (00003652) 
LOCATION (00003662) 
LOCATION (0000366A) 
LOCATION (0000363A) 
LOCATION (00003634) 
LOCATION (00003558) 
LOCATION (000035C2) 
LOCATION (000035D6) 
LOCATION (000035EE) 
LOCATION (0000352A) 
LOCATION (0000355A) 
LOCATION (00003566) 
LOCATION (00003568) 
LOCATION (00003244) 
LOC ATION (00002E22) 
LOCATION (00002F34) 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


1935 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 


CSECT (17810 
1965 1971 


CSECT (17810 
CSECT (17810 
CSECT(I7810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (I78 10 
CSECT (17810 
CSECT(I7810 
CSECT (17810 
CSECT (17810 
CSECT(I7810 
CSECT (17810 
CSECT(I7810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (I7810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT(I7810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (I7810 
CSECT(I7810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 


EC=755285 


eee eee eee ee 


203 


ee el i a i a a 
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LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 


LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (2) 
LENGTH (4) 
LENGTH (6) 
LENG TR (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 





17810 --- 


DECLARED 


2425 
2320 
1239 
1779 
2743 
2765 
2732 
2804 
2676 
2808 

792 

790 
3228 


3409 
3416 
3233 
3418 
3427 
3302 
3237 
3250 
3262 

65 
2786 


NAME 


T7832 
T7833 
T7836 
T7875 
VRDCB 
WKDCB 
WRDCB 
WRS ID 
WSDCB 
WSIDT 
XE 

XT 

XTO 


XIOCK 
XIOCO 
XIOCS 
XIOCV 
XIOCX 
XIOER 
XIO1 

XIO2 

XIO8 

XTRNL 
ZEROO 
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CROSS-REFERENCE LISTING 


UJ 


RESS. HEX LOCATION (00003DB0) 
PRESS. HEX LOCATION (00003D1E) 
RESS. HEX LOCATION (00003CD2) 
RESS. HEX LOCATION (00003CF8) 
RESS. HEX LOCATION (00003D0C) 
OLUTE. HEX VALUE (90000001) 
505 541 583 60 
RESS. 


WW WwW Ww Ww 


HEX LOCATION (00003A5C) 


ee) 


IN 
IN 
IN 
IN 
IN 


7 
IN 


ATTRIBUTES AND REFERENCES 
455 
ADDRESS. HEX LOCATION(0000370E) IN 
ADDRESS. HEX LOCATION (000036BA) IN 
ADDRESS. HEX LOCATION (00002DB6) IN 
ADDRESS. HEX LOCATION (000031F6) IN 
gh BBRESS- HEX LOCATION (00003A1C) IN 
ADDRESS. HEX LOCATION(00003A3C) IN 
3146 3147 3162 31 
ahBDRESS. HEX LOCATION(00003A0C) IN 
ADDRESS. HEX LOCATION (00003A82) IN 
2683. 2772 2980 3061 3 3 
ADDRESS. HEX LOCATION (000039BC) IN 
3166 3167 3169 3170 
ADDRESS. HEX LOCATION (00003A8A) IN 
2976 3147 3170 
ABSOLUTE. HEX VALUE (00000024) 
3347 3409 
ABSOLUTE. HEX VALUE (00000022) 
3253 3394 
ADDRESS. HEX LOCATION(00003CB8) IN 
3112 3115 3123 3130 3133 3136 
3160 3164 3168 3171 3174 
ADDRESS. HEX LOCATION(00003D80) IN 
1568 1644 1943 1982 3263 
gADDRESS. HEX LOCATION (00003D92) IN 
ADDRESS. HEX LOCATION(00003CC2) IN 
1026 1185 1536 1836 2490 3425 
ADDRESS. HEX LOCATION(00003D96) IN 
ADD 
419 
ADD 
433 
ADD 
229 
ADD 
236 
ADD 
267 
ABS 
436 
ADD 
023 


ROC ORG aac LAST DAGE 


CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CS ECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (I7810 


CSECT (17810 
3144 °3148 


CSECT (17810 
CSECT (17810 
CSECT(I7810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT (17810 
CSECT(I7810 


CSECT (17810 


HH HK He MH He He ee He He He He HH eH He He eK He RK He He He He eK eK 


en et a i od 


EC=7552 85 
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LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (4 
312 oe 


) 
) 
) 
) 
) 
) 
) 
) 
) 


) 


LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 


